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SUPPLEMENT TO UCRKL REFORT 81808 "LSI-i1 WRITABLE CONTROL STORE 
ENHANCEMENTS TO U.C.5.0, PASCAL" 


Gordon Smith and Roger Anderson 
Lawrence Livermore Lahorstory 


This rerort is @ suerlement to UCKL rerort S1i808. Ib contsins 
metailed test results: more informstion redarding test rrocedures » 
Listings of softwere used in the tastings and microcode Listinss,. 
Tests were rum using the LSI-11/2 (KDLI-HA) with MSV11I-D0 S2K memory 
Brod the U.C.5.0. Pascal 1.4 system. 


Arrendix A - Pemachine Instruction Execution Sreeds,. 
Tnese results sre from the test series described im UCKL 81808. 


Rearort ~ Compilations (reartially listed in Table i of rerort) 
Rerort 2 - Whetstone 


~ 


Rerort BS - Sorts 

Rerort 4 - Cross-Referencer 

Rerort & - Balanced Tree Seerch and Insertion 
Arrend~x EB - Standard Procedure Execution Sreeds, 


Execution sreeds of standard rrocedures were messured in the 
same test series, Notes mo microcode was used for these tests, 


Rerort 68 ~- (five of six) Comrilations 

Rerort 9 ~- Whetstone 

Rerort 10 -— Sorts 

Rerort Lil - Cross-Referencer 

Rerart 12 - Balanced Tree Seerch and Insertion 


Arreandix C - Execution Sreeds of Microcoded Pe-machine Instructions. 
These results were summarized in Table 2 of UCRL B1iB0S. Note» 
LOO» SKO,s and LLA are mot in microcode. They were removed 
to meke room for microcode routines meeded to do the timing. 


Rerort & - Microcode Times 
Ferort 7 - Macrocode Times 


Arrendix DT - Program Execution Sreeds. 
Tnese results were summsrizeds with regard to imrrovements 
derived from microcode, im Fisure 1 of UCRL S1i808. The U.C.5.f, 
P-machine interereter can be conditionally assemnled to msaske 


~, 


use of extended FIF-11 instruction sets, Four versions of 


the interrreter were tested? 
ANY 11 - only uses the base FIF-11 instruction set 
LSI-Li - uses the bese LSI-Li instruction set 


LSI/EIS/FIS - uses the base LSI-11l instructions felus EIS/FIS 
instructions , 


LSI/EIS/FIS/MIC - uses base LSI-il instructionss EIS/FIS 


imstructions, and microcode 


Rerark A - Comeilations 

KRerort BE - Whetstone 

Rerort C - Sorts | . 
Rerart El - Cross-Referencer end Balanced Tree Search and Insertion 


AFFendGLx E - Rerort Generators 
STATS ~- used to corvert raw test scores to rerort 1-7 


CSPSTATS - used to convert the raw test scores to rerort 8-12 


Arrendix F - Fescel Test Programs 
WHETSTONE ~ Whetstone Syuntnetic Benchmark. 
BTSI = Belanced Tree Search and Insertion 
RQUICKSORT - Quicksort (recursive) 
QUICKSORT ~ Quicksart (nonrecursive) 


HEAPSORT - Hearsort 
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Arrendin G - Microcode Used for Timings 
CNTER.MIC ~- used for rerorts 1-5 end 7 
CNTINT.MIC ~ used for rerorté 

Serendix H - MACKO-Li Code Used For Timings. 
These Bre the key assembly code routines thet were inserted 
imto the U.C.S.0. Femachine interrereter to do tne timing, 
F-code Timer - used for rerorts 1-7 


Standard Frocedure Timer - used for rerorts 8-12 


Arrendix Io - Microcode Listings 


Test 


INTERF.MIC 


Frocedure Notes 

Some of these tests included an intersctive rortion., In all 
Cases instructions were enterred into the inreut ouffer before 
tie Fromrets occurred, 


Tne timing method emeloved in these tests is es follows! A table 
WES meimteined in macro level code which contsined two floating 
Point mumbers for each orcode ar standard rrocedure bheins 
measured (see Arrendix HH). These two mumbers were used to count 
tne freauencey of execution and mumber of microseconds srent 
Bxecubtings each instruction. The timing mechanism was turned on 
manuelig bu soingd into ODT and changing @ oranch instructions 
which had peen erreventing the execution af the timinss routines to 
3a NOP. When the data hed been collected it was outeut to 3s 
Dlank flores on volume #5 ov manually causing the execution of 3 
SYIORQ call. Nextsrthe Faescsl rrosdrams STATS or CSFSTATS were 
used to inrut tne date From #5 bye using a UNITREAT. 


Im STATS the raw test results were adjusted bs tne followings 
fectors to isolate the times for the individusl instructions? 


CNTOVH ~- Count “Overhead. The time reauired for turning the 
resl time clock on and off. 
COREQVH - Interrereter fetch seauance overnesd, The sversse 


Lime sPent in the interereter fetch seeuence for 
mom SLUCI instructions. 
SLOCIOVHE - Interereter fetcn seauence avernead for SLOICT 
imstructions» 


Notes these factors sre estimates, 


APPENDIX 


Ai 


F-maechine Instruction 


REPORT 


CNTOVH 


OP CODE 


174 
158 
161 
173 
i71 
0 
139 
0 
167 


12? 
1é4 
234 
203 
17? 
143 
214 
244 
142 
23S 
218 
217 
162 
200 
202 
132 
193 
140 
2A? 
zi? 
19? 


1S? 


4,4 COREOQVHE = 


MNEM 


CIF 
CSP 
PF 
RNE 
SRO 


SLOO-TOTAL 


INN 


SLOL-TOTAL 


LOO 
CLF 
E QUT 
UF 
LOM 
STL 
CAF 
XJF 
ALT 
UNT 
LOk 
LAQ 


SIND-TOTAL 


LLA 


SLOOL? 
SLOC-TOTAL 


IXA 
SLOG 
NEQT 
Loc 
ING 
SLOULA 
SLOOLS 
MOD 
SLOO4 
SLULS 
SLOILS 
LO’ 
LEQT 
LOL. 
ANT 
REF 
ALL 
SINDL 
SLOUL4 
LOcT 
LOCN 


-~ & COMPILATIONS 


FREQ 


7479529 
$2342.49 
318835.9 
1520.0 
174373.0 
467442 .0 
4014040 
31061349 


~169881.9 


1669240 
16667549 
144070,.0 

44340.0 

70584.0 

5025.0 
3BOB0.0 
219366.0 

198400 

84842.0 

5073040 

88608.0 

48589 20 
126586.9 
565457 0 

15343.0 

9488840 

A7859.0 

15250.0 

2967940 

B1766.0 

73143.0 

3662.0 

62186.0 

61331.0 

60326.0 

9334.0 

27982.0 

17580,0 

32472.0 

6103.0 

1908540 

26416.0 

4080140 

21143.0 

47142.0 


14.7 
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SLUCIOVHE = 7.4 


MICS 


4,7E7 
3.8E7 
$.0E6 
6.8E4 
weed 

we 4ES 
4,4E6 
3+6E6 
3+6E6 
3+4E6 
3+4E4 
3+2E6 
3,OES6 

2+ GES 

Ze Fed 
2+4E& 
2elEé 
1,864 
1,864 
1.664 
1.5E4 
1,584 
1,5E6 
1.456 
1.2E6 
1.,1E64 

1 + OE 
76073949 
9357353749 
FAPIO?7 2S 
BS0492.64 
7$22537.8 
2204.4 
7ISS9B.9 
701547 .4 
6224684,.5 
6000858.8 
HF S9EO.9 
JIL SEOs 7 
BHOS7 7 4G 
338584. 4 
wLB21L7.4 
474034,9 
4971758.7 
4$20703.8 


AVENICS 


632.4 


1185.8 


fytse. £3 
saad & a 


74946 
3154 
411.6 
114.1 
11.6 
3204 


20261 


20.44 
Zo. 4 
68.4 
31.4 
484.8 
62.48 

Fo? 
71.8 
20.8 
31.0 
17.90 
30.7 
11.6 


Psst 
eet 


75.2 
11.6 
Piet 
63.0 
32. 
11.6 
11.4 
200.0 
11.6 
Lisé 
11.6 
66.7 
21.4 
33.8 
1740 
90.2 
28.2 
1946 
11.6 
21.6 
a.9 
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L423 
197 
24s 
178 
7S 
Lei 
243 
L194 
148 
225 
149 
La4 
LY¥4 
16? 
23h 
242 
147 
oo 
23? 
170 
134 
2g 
141 
2a3 
22s 


ayer ny 
Be ed she 


143 
254 
235 
220 
232 
254 
241 
237 
201 
22 
225 
229 
22% 
245 
i89 
227 
224 
164 
148 
138 
184 
240 
22d 
L183 
L37 
230 
134 
135 
208° 


INC 
GRTI 
SLI 
Lia 
COMPARE 
STE 
SINDO 
_ CEP 
MOV 
SLOLIS 
SEI 
STO 
BERT 
MVE 
SLOSS 
SLOUGLA 
NOT 
SIND? 
SLOG 
SA5 
VI 
SIND 
IOR 
SINS 
SLOL? 
SINT4 
MPI 
SINGS 
SLOO? 
SLOLS 
SLUOOL 
SINS 
SLOOLO 
SLIOG 
LESTI 
SLILS 
SLOLILO 
SLULIS4 
SLULS 
SLOUOL4 
STM 
SLOLL2 
SLUL? 


SLILLIL 
COMPARE 
FLO 
SLOILLS 
Lor 

LVR 


Sir 


23078.0 
16856.0 
0956.0 
6829.0 
2344.0 
27875.0 
27130.0 
1085.0 
3733.0 
23345.0 


27ers. 


2o135.0 
12313.0 

1515.0 
17377.0 
146244,0 
22013.0 

BS10.0 
13534.0 


BO. 


&38.0 
6283.0 
11648,.0 
761340 
924740 
weds D 
1443.0 
3093.0 
B203.0 
7810.0 
Pose 
420740 
203,09 
4135.0 
2747.40 
248740 
4856.0 
4274.9 
3354.0 
$121.0 

34720 
2629.40 
2u4eO 
1396.9 

194.0 

84.0 

346.9 
L514.0 
1315.6 

1940 

4640 
1163.0 

1358.06 

468.0 

4506.0 


+ +> ra O74 


Cr ee ee ee a 


ft 
hoo Oo Ob br OSC SN SER AO ho Gl 


41727142 
388851.4 
359833.4 
348202.1 
343229.4 
312584.4 
Z034608.9 
278014.4 
275516+7 
271198.5 
264305.0 
261939.5 
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293048.4 
2O01954.2 
188717.3 
1883445.4 
1446848,0 
15739146 
135483,9 
127556.1 
123326,64 
114837.2 
10?940.64 
197434.3 
104992,.4 
160441,4 
P73b4.,7 
SSS. ? 
POBL540 
S7571.3 
B2487.3 
7205445 
71378.2 
&74SS.1 
6370643 
36741.4 
w3146.4 
SBP 4h.4 
3626249 
S2715.3 


30629.1 


29598.5 - 


28787.4 
24120.4 
22657.4 
19764.4 
174625.4 
15317.2 
L4672.2 
14574.2 
13516.5 
10818.2 

w/1Be2 


333724 


133.8 


199.9 
1744 
Pe? 
19.6 
11.4 
17.4 
S94 
197.64 
11.4 
11.4 
11.464 
17.4 
11.4 
11.4 
wae? 
11.6 
11.4 
11.4 
11.4 
11.4 
F443 
Lis? 
11.6 
20.8 
231.9 
263.493 
weed 
me ee) 
11.4 


205+0 


303.7 


LL.4 
68.5 
LL?.1 
B49 
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2O7 
129 
131 
144 
Le? 
145 
133 
2g 
129 
136 
140 
144 
150 
151 
152 
153 


155 


157 
176 
177 
1890 
131 
i Ae 
20? 
21d 
eli 
2i2 
213 
214 
kd 
24d 
247 


CGF 

ABT 

ALR 

| MER 
STF 

NGI 

OIF 
SLULASG 

, ABR 
CHIN 

INT 

NGR 

SER 

SG6S 

SQI 

SQR 

IXS 

. $2F 
COMPARE 
COMPARE 
COMPARE 
COMPARE 
IXF 

IXB 

BYT 

EF J 

NFU 

RET 

KIT 

NoOF 
SLOGLS 
SLUGS 
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3633.7 
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2200.2 
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1442.2 
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REPORT 


CNTOVH 


OFCODE 


1568 
188 
1é? 
164 
189 
207 
163 
135 
1?9 
144 
138 
131 
136 
iv? 
Lf id 
206 
173 
143 
185 
149 
(“i1éi 
127 
8 
216 
200 
130 
156 
202 
205 

0 
201 
19? 
19S 
194 
134 
204 
L193 

0 
ha ere 
146 
236 
237 
178 
232 


255 


~ WHETSTONE 


= 4,4 COREQVHD = 14 


MNEM 


CSF 
LOM 
Lig 
IXA 
STM 
CGF 
LAQ 
DIVER 
LLA 
MPR 
FLT 
AIR 
CHK 
Lic 


SLOC-TOTAL 
SLOL-TOTAL 
SLOILA 

LEQT 

ALT 

SER 

LDL 

CXF 
SLUO-TOTAL 
LEST 

GRTI 

EQUI 

CRF 

Tvi 

STL 

REF 
SIND-TOTAL 
SLUL2 

NGR 

SLUOS 
SLUOOS 

LOA 

SLOOL 
SLUO4 


FREQ 


6FHs. 
111345. 
L38008.9 
606734G 
ake he ware O) 
BF?70,0 
7?P184,0 
11400.0 
71920,0 
2olF?.O 
4997.0 
34890.0 
40383.0 
33474,.G 
41378.0 
672720 
LS718.90 
14769.0 
S4131.6 
7976320 
34100,0 
2UOHbAP AF 
44174,.0 
42129.0 
22s 4G 
31964,0 
4440.0 
6320.0 
147.9 
8755.0 
4609.0 
4275.0 
4033-20 
20540 
265-0 
1274.9 
33240 
1671.0 
1690.0 
763.9 
1311.9 
1408.9 
319.0 
1277.9 


1255.90 
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7? SLOUCTOVHE = 7.4 
FRERC MICS 
© Ud 1.6E7 
» 841 S.1E6 
2lLO4s 4,4$F4 
e 455 ALES 
+ 418 3+SEG 
» 65 2+4E6 
+ SPB 2+4kS 
+ B86 ee SES 
+ 343 2+SEs 
+ 7S 2eekd 
2 37 1.SE4 
2 er? 1.47E4 
+ 454 1.G6E4 
+ 254 1,4E6 
e 213 1.366 
e od 1+2E4 
+ 11? 1.1E6 
+ Lil 83710,9 
? 258 8242355. 
2 use 7O6652 + 
e 2d 583429 .0 
+L Pa? 4737440 
e 334 DLIGS7.S 
+ 318 486264.1 
+ 1é? 436491545 
« 241 31041746 
2 34 22S199.0 
» 48 2032455 
’ 1 109424.1 
2 6 1O1772.2 
+ 25 P5615.1 
» 32 SSE31.5 
» 34 8274447 — 
. 2 934035 
: 2 JeF7B +S 
e 10 40603.46 
* 3 3075358 
e 13 245944? 
e Ls L9S?77.0 
* 7 19319.? 
e. db L7S582.9 
gd 14337.2 
° zz 16091.1 
» 106 14861.1 
‘ 9 14574.5 
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238 
233 
iP 
182 
248 
142 
190 
132 
194 
163 
239 
175 
203 
234 
229 
240 
isi 
170 
141 
162 
154 
164 
241 
128 
139 
129 
186 
184 
254 
218 
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2 We 


222 
221 
20 
204 
199 
147 
133 
13? 
140 
145 
148 
154 
iS2 
153 


Lao 


156 
137 
Loy 


140° 


SLU? 
SLOUO? 
STB 
LOD 
SINTIO 
MOD 
LO 
ANI! 
SINT? 
GEQI 
IND 


SLOOS 
COMPARE 


NEQI 
SINKS 
SLUOS 

SLOLL4 
SLOOP 


COMPARE 


SAS 
IGOR 
ING 
SINKS 
STO 
LOA 
SLUGS 
ABT 
INN 


COMPARE 


ABR 
LaF 
STR 
SINDS 
SLULS 
SLL 4 
SLOLS 
SLO? 
SLIULS 
SIND 
SINGS 
Lc I 

— NOT 
DIF 
FLO 
INT 
NOI 


S6S 
SQ] 
SAR 
IXS 
UNI 
S2F 
~LYICN 
AL 


1080.0 
1001.06 
1018.06 
191.0 
97340 
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433.0 
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43240 
34340 
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221.0 
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28740 
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STF 
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(IINTOVH 


OFCODE 


~ 3 SORTS 


= 4,44 COREOVHT = 


MNEM 


Ika 
CHK 
Lad 
LUCT 

F IF 
SLOUL-TOTAL 
SLOO-TOTAL 
MFI 
STL 
MOT 
LEST 
SRO 
SINU-TOTAL 
SINKO 
SLIL2 
SLOC-TOTAL 
SHI 
UF 
CSF 
LEQT 
SLOOS 
An 
SLOOSG 
STo 
SLULS 
SLUL4 
Log 
SLOOS 
SLOL 1 
VI 
CLF 
GEQT 
GRTTI 
CGF 
SLUOS 
RNF 
SLUOLL 
LOL 
SLIILG 
CXF 
SLUO? 
SLIOG4 
SLULS 
SLOOLIO 
SLIOL2 


FREQ 


35845509 
493847 .0 
B58387 29 
4961699 
272157.0 
534440.9 
422487 .0 
60077.0 
135327.9 
18000.0 
142358.9 
95589 .0 
26045549 
258751.9 
23101749 
901206.0 
218633,0 
7113B.0 
218.0 
66709 .0 
10197149 
117672.0 
981290 
9903840 
88764.0 
87830.0 
21269.0 
8537540 
7836440 
4472.0 
4502.0 
32156.0 
28978.0 
2204.0 
43454 .0 
6708.0 
3980540 
9515.0 
3628940 
87.0 
15818.0 
14451.0 
12156,0 
11997.0 
7868.0 


14.7 SLUCTIOVHT = 


FRERC 


684 
943 
434 
947 
520 
1020 
807 
115 
258 
34 
272 
183 
497 
AP4 
441 
1721 
417 
134 
0 
127 
195 
225 
187 
189 
1469 
168 
44 
163 
156 
9 
9 
61 
555 
4 
83 
13 
76 
18 
69 
) 
30 
29 
23 
23 
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MICS 


1,SE7 
1,3E7 
Lacks 
L,1&7 
&.SE6 
6,2E4 
4,9E6 
4,6E4 
4,356 
3+6E6 
3+2E6 
3+1lES 
2+PE6 
2ePES 
217k 
2+Ské 
2sleé 
2,0E4 
+FES 
1.4E6 
1,2E4 
1.,1E6 
1-164 
1.0E6 
1.GE4 
1,0E6 
1,.0E6 

FE S027 44 
P1S579~.6 
BP45S2.7 
780707,8 
7é9O051.4 
666229 41 
W13452.5 
DOSSOL.S 
47779241 
462160.4 
444890,4 
4205123,0 
2B5F65.2 
183752.2 
167630.8 
140734.3 
149066.3 
91484,2 


AVEMICS 


41.1 
2644 
34.7 
21.7 
2347 
11.4 
1i.é 
7644 
31.44 
200.0 


ae 


See 4 
11.3 
1i.3 
11,464 
ean 
Pa? 
28.1 
8647.9 
2946 
11.44 
9.7? 
11.64 
10.4 
11.4 
11.6 
4743 
11.4 


tes 


200.0 
17344 
234? 
2340 
23320 
11.6 
71.2 
11.6 
44.9 
11.4 
423740 
11,44 
11.4 
11.4 
1447 
11.4 


+ * * > Ca + + > + >- + +» & + & + od + + > + * + & em} + + rr + + > + * id * + + > + + > * 


MPERC 


824 
730 
a7 
603 
362 
348 
275 
257 
238 
202 
ie? 
173 
1465 
163 
154 


127 


35005.7 11.3 


SLOOP 3033,0 , é 
Equi 152740 3 31144.3 20.4 
INC 1641.0 , 3 29741. 18.1 
CRE 115.0 . 0 28666.5 249,44 
SINIM 1199.0. 2 23507 —4 19.7 
REE 207.0 , 0 17396.3 93,7 
Lou 290.0 4 1 15490.0 5543 
COMPARE 720 ae Q 13729,.8 149.2 
INE ILO 5 if 8719.9 32,2 
LIVE 405.0 4 1 8413.5 20,8 
SAS ZO.0 - 0 6876.0 229.2 
SLuOd B44,0 4 1 3998.6 11.4 
Loa 7240.3 O 3440.8 3046 
NEQI i5i.0 . 0 3428.9 2247 
ANI 201.0 0 3414.9 17.0 
SIND4 146.0 , 0 2857.4 1946 
SLiO2 241.0 . ) 2793.9 11.6 
SIND? 130.0 , 0 2555.0 «APL? 
SINDS 99,0 4 oO 1748.1 i9.7 
Lia BRO ¢ 0 1782.2 30.7 
SIND 84.0 , 0 1646.4 19.6 
COMPARE 64 Os 0 1496.4 249.4 
| NOT 150.0. 96 1282.0 o44 
INN 16.0. 0 1153.0 115.3 
LIF 14.0, 0 4S. | 57.4 
TOR 92,0 4 0 850.8 9,7 
LCA 36.0 4 O° 744.4 20.7 
STE 62.0, Q &76.8 11.2 
MOV 3.0 4 0 BE9.7 189.9 
SIND PasO: s o 554.2 19.8 
STR 10.0, Oo 513.6 Bie 
XJF PEO. 4 0 411.3 5O,8 
SINGS 18.0 , 0 354,2 19.7 
Luc 3.0 4 0 281.7 93,9 
LICN OS 70 225,55 9.0 
BET S.0 4 0 29347 74,4 
SLULA4 18.0 5 0 211.2 1247 
SLUL?Z ie! 3) 22,8 0 11.4 
ART 0404 0 040 0.0 
ARR 0.0 4 ¢) 040 0.0 
ALR 0.0. O 6.0 0.0 
DIF 0.0 4 0 O60 0.0 
LVR C20 a5< “6 0.0 0.0 
FLO 0.0 , 0 O40 0.0 
FLT O60 4 0 0.0 0,0 
INT 0:0 . re) 0.0 0,0 
MER O10 4 0 0.0 0.0 
NGI 0.0 4 0 0.0 0.0 
NGR 0.0. 0 0.0 0.0 
SRS 0.0% 0 0.0 0.0 
SER 0.0 ¢ G 0,0 0,40 
SGS 0.0 .\ 0 0.0 0.0 
Sar 0.0 4 o 0.0 0.0 
SQk 0x0 4 0 0.0 O.0 
Ixs 0.0, 0 0.0 0.0 
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+4840 


1,8E8 


MEP ORT 4 


CONTOVEH 


OFCOUE 


0 
205 
L4l 
171 
174 
193 
i358 
163 
2a 

0 
165 
204 
188 
144 
13S 
130 
23s 
185 
182 
162 
19? 
134 
207 
L127 
156 
248 

0 E: 
L176 
236 
L199 
136 


235 


234 
173 
139 
i54 
147 
252 


20S 
23°? 
149 
2d 
142 
198 
2a? - 
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= 4,4 COREQVHE = 


MNEM 


SLOO-TOTAL 
CXF 
Pade 
SRO 
CERF 
REF 
CSF 

INT 
SLIGO? 

SIND-TOTAL 
LAD 
STL 
LOM 
IXA 

EQUI 
ALT 
SLUO2 
LF 
Low 
INC 
GRTTI 
TiVI 
CGF 

SLIC-TOTAL 
UNIT 

SINTO 

SLOL-~-TOTAL 

LOE 

SLOUOS 
Luc? 
CHI 
SLUO4 
SLOOS 
RANE 
INN 
$ToO 
LOO 
SIND4 
CLE 
SLnaes 
SBI 
SINS 
MOD 
LLA 
SLOG 


HO7 90.0 


14.7 SLOCTOVHE = 7.4 

FREQ FREER MICS 
890384,.9 .2372 1.GE7 
2G075.0 4 7S 8.4E4 
SAP4E4,97 5 FO4 7a7EG 
1777846.0 . 474 De GES 
22G79.9 4 1 we dh 
WO976.0 + 134 4,3E6 
36B37.0 4 98 4,0E4 
L25527.0 . 334 4,0E6 
S25100.7 .« 846 32B5E4 
e2s250.0 4. SPS 3+4E4 
7450140 4. 198 3,0E6 
~—691654.90 4. 244 2+ PEG 
11313.0 . 39 2+SE4 
2PH7729 + 7P 2+GES 
L21750.9 . 324 2eakd 
192529.0 . S13 i.9ES 
LS6832.9 2 41s 1.BES6 
— PSAP. O « 254 1.8564 
eFF4250 4 GO 1.4ES6 
8370240 . 223 1.5264 
5320.0 4. 177 1.5E6 
7213.0 4 LF 1,4E4 
6614.0 . 18 1,464 
4462056.0 .1231 1,.2E6 
4000.0 . 11 1-<1E6 
4237.0 . 251 1.,ik64 
POBS1.0 ., 242 1.1E64 
HO220.0 , 124 1.0E6 
SBSS8-.0 . 2356 1,0E4 
46613.0 4. 124 1,0E86 
S7999.0 4 101 PP1P02,0 
B1056.09 . 214 9404553. 4 
77936490 4 208 90420043 
11089.0 . 39 844203,0 
7318.0 . 1? BSPi 26.2 
77238320 , 211 B27137.46 
17295,.0 . 46 B21042.9 . 
40431.40 . 106 7P64B3.°? 
4473.90 2. 12 FPAPOZ LS 
604631.9 . 142 70851429 
67276+9 4 179 65334944 
S3120.0 . 88 451970.0 
S135.0 , 8 62487524 
200387.0 . 33 613941.3 
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14.1 
40.9 
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2246 
200.0 
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283.43 
Lis2 
11.6 
2048 
11.4 
21.6 
2G 1 
11.4 
11.4 
fOel 
114.7 
10.4 
4745 
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LS oF 
11.6 
7.7 
19.7 
200.40 
3046 
11.64 
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EDF 
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326 
302 
273 
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124 
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7? 
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14° 
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147 


yoy ee 
a ae ud 


132 
1?1 


24 


2ugd 


2lé 


226 
217 
2O1 
173 
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STE 
SLOW? 
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SLOLAL 
SLILAL 
SLIL2 
LEST 
COMPARE 
GEQTI 
COMPARE 
TOR 
SIND? 
XJF 
SLIULI4 
SLILS 
SLIILS 
LCA 
MOV 
ABT 
STR 
SiF 
SLOOP 
LICN 
SAS 
SINDS 
SLOIL? 
SLIOLO 
Lor 
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SLULS 
LOL. 
SLOOLL 
AB 
ATIR 
Nir 
DVR 
FLO 
FLT 
INT 
MFR 
NGI 


4890340 
21158.0 
20555. 
4691.0 
2498.0 
4273.0 
13348.0 
3333.0 
333340 
13277.0 
280149 
S1824.0 
2242340 
L5399.0 
21128,6 
16419.9 
9105.0 
14442,0 
135993,0 
13225.0 
6034.0 
67240 
4884.0 
574.0 
9507.0 
4223.0 
947.20 
4434.0 
320340 
2088.0 
844,06 
167.0 
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144.0 
B2740 
47740 
TOF 40 
u+O 
P20 
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CNTOVH 


OFCODE 


207 
161 
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0 
173 
245 
el? 
2A? 
218 
206 
142 
1835 
2O1 
216 
L?S 
1é2 
19? 
143 
158 
159 


127 
237 
259 
227 
134 
200 
204 
221 
134 
205 
220 
144 
174 
we 
eo 
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= 4,4 COREOVHD = 


MNEM 


CGF 

FF 
SLOL-TOTAL 
SIND-TOTAL 
RNF 

SINTO 
SLUL2 
SIND 
SLULS 

CLF 

MOD 

UIP 

LEST 


SLU 


EQUI 
INC 
GRTI 
MFI 
CSF 
LCN 
SRO 

. LAO 
SLOIO-TOTAL 
SLU? 
$To 
LUCT 
ALT 
LEQTI 
XP 
SLUC-TOTAL 
SLOGS 
SLUOQS 
SLULLS 
CHK 
SIND2 
STL 
SLOLS 
vy 
CXF 
SLOULS 
IXA 
CRF 
SIND4 
SINS 
REF 


FREQ 


3400040 
L49715.0 
S4B293.7 
267720.0 

40997490 
1?98205.9 
158375.0 

67145,0 
103624.9 

2001.0 
301540 

44749 .0 

46526 .0 

774F229 

41401,0 

4033740 

2675440 

DO00.0 
378,0 
$2004.90 

10372490 

10120,0 

2OSF5 20 

L5153.6 

L5103.0 

7184.0 
14763.90 
SOF G20 
1380,0 
2657540 
20? .40 
2048.0 
7010.90 
2174.0 
1480.0 
926,40 
2000.0 
8540 
3540 
1180.0 
1463,0 
2+0 
314.0 
27340 


6249 
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+ 296 
21233 
+2864 
12202 


+ 337 


INSERTION 


Fao 4 


MICS 


8.BE6 
4,6E6 
4,0E6 
5+6E4& 

2e PES 
22k 
1,B8E6 
1+3E4 
1+2E4 
1.1E6 
1,0E6 
764811.0 
2722061 
BPPS34.7 
847226:.9 
73127743 
76262244 
415564.0 
SEP415.2 
374864,.3 
32962348 
310174.9 
3046373 .5 
175845.7 
1578d3.7 
155645.5 
143254.7 
103734.4 
66754.0 
&7137.0 
6051741 
BOS 25+2 
2O175~.0 
967353 +6 
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28958.90 
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6249 
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APPENDIX & - Standard Procedure Execution Seeeds 
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MNEM 


UWRITE 
UREATI 
Tus 

TRS 

SCN 

MVL. 

NEW 

MRK 

RLS 

TOR 

TIM 

FOT 
UBUSY 
XIT 
UCLEAR 
Toc 

MVR 

FLG 
TRAWLINE 
QRAWBLOCK 


TRC 
RAND 
SINCSP 
COSCSF 
LOGCSF 
ATNCSF 
LNCSF 
EXFPCSF 
SOQTCSF 
UWALT 
HLT 
MEM 


REFORT @ ~ 


(five 


STANDARD 


FREQ 


4442.0 

1?0,0 
3089.0 
112.0 
4271.90 
S251.40 
222l.d 
1573.0 
1378.0 
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PROCEDURES 


MICS 


4,4E7 
4,OE6 
1.7E6 
1,4E4 


IPFLI4.0 
21262140 
196114.06 
75975040 
—6 67 3S7 5G 
13174,0 
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week? 


six)? COMPILATIONS 


AVEMICS 


PE1L0.5 
20888,.3 


37145 
22061 
140.3 
157.7 
88.3 
47.0 
4247 
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MNEM 


COSCSP 
UWRITE 
LACSF 
ATNCSF 
EXPCSP 
SINCSF 
SQTCSF 
LOGCSF 
TRC 
UREAD 
IOC 
UBUSY 
TOR 
UCLEAR 
POT 
XIT 
RLS 
NEW 
MYL. 
MVR 
Ins 
TRS 
Tam 
FLO 
SCN 


DRAWLINE 
DRAWBLOCK 


RNID 
MRE 
UWA T 
HLT 
MEM 
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STANDARU 
FREQ FFERC 
1920.0 .2777 
420.0 . 60? 
930,0 .1345- 
640.0 4 926 
930.0 .1345 
640.0 . 924 
930.0 .1345 
40,0 58 
337.0 . 487 
2,0 3 
104.0 . 150 
3.0 
14.0 2? 
1.0 
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PROCEDURES 


MICS 


3+ GE6 
4,1E6 
1.7E4 
1.464 
1,464 
1,364 
1+1E6 


700546.0 
65483.0 


8432.0 
3374,0 
663,09 
443.9 
273.9 
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2 P3546 


P77 247 


1934,3 
2540.1 
1478.7 
2031.42 
L11358.1 
2e2ul.4 
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4316.0 
3446 
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2389 
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33 
37 
38 
3? 
40 
41 


MNEM 


UWRITE 
URE AT 
UBUSY 

TOR 
MVE 
SCN 
Loc 
TIM 
xXIT 
NEW 
RLS 
MVR 
IS 
TRS 
FLC 


DRAWLINE 
DRAWBLOCK 


TRO 
RAND 
SINCSF 
COSCSF 
LOGCSF 
ATNCSF 
LNCSF 
EXFCSP 
SQTCSF 
MRE 
FOT 
UWA TT 
UCLEAR 
HLT 
MEM 


REPORT 10 - SORTS 

STANDARD PROCEDURES 
FREQ FRERC MICS 
6660 22945 2+ OE} 
40.0 .1786 uw? 7684.0 
7+0 4 3 1584.0 
46.0 4.2054 1444.0 
16.0 , 445 1425.0 
440 4 179 1237.0 
3040 «1339 1039,0 
12.0 . 336 wha ee) 
4.0 4. 179 488.0 
2eO . BP 177.0 
3+O0 + 134 129.0 
0,0 . 0 040 
0.0 5 0 0.0 
0.0 ¢ ie) 0,0 
0.0 » 0 0.0 
D6 0 0.0 
0.0 5 0 G20 
O.0 4 G 0.0 
0.0 , Q 0.0 
80,0 . G 0.0 
O.0 . 6 0.0 
O.0 -¢ .) G,G 
G10 ¢ 0 0.0 
0,0 . 0 0.0 
O.G0 . o 0.2G 
0.0 . G 0.0 
O40 + 0 O46 
O40 4 Q 0,0 
040 ¢ 0 0.0 
0.0 ¢ 0 040 
O0+0 +6 O G10 
0.0 4 0 0.40 
0.90 , 0 040 
0.0 . ¢) 0.0 
0.0 4 0 0.0 
0.0 + 0 0,0 
O40 + 0 0,0 
0.9 ¢ 0 0.0 
0+0 ¢ 0 0.0 
O40 4 0 0,0 
0.40 . 0 0.0 
22440 S.1E 
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MNEM 


UWRITE 
MVL 
roc 

UREAT 
FLC 
NEW 
TOR 

UBUSY 

UCLEAR 

TIM 
XIT 
RLS 
MVR 
Ins 
TRS 
SCN 


QRAWLINE 
DRAWBLOCK 


TRE 
RAT 
SINCSF 
COSCSF 
LOGCSPF 
ATNCSF 
LNCSF 
EXFCSF 
SQTCSF 
MRK 
POT 
UWAT T 
HLT 
MEM 
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STANDARD FROCEDURES 


FREQ 


2340 
13447,.0 
16358, 

1740 

14.0 

141.0 

50.0 
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MICS 


Ze OES 
1.266 


6619540 
462927049 


SBSPF +0 
1246340 
1918.0 
667.0 
2P440 
184.0 
51,0 
4340 
0,0 

0,0 

0.40 

0,6 

040 

0.90 

0.0 

0.0 
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4,356 


RENCER 


27604.2 


2742.8 
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REFORT 12 - BALANCED TREE SEARCH AND INSERTION 


STANDIGRE PROCEDURES 


MNEM FREQ FRERC MICS AVEMICS 
UWRITE $0.0 .3543 PB5042,9 10744,.9 
URE AL 2+ 4 7? 68063,0 3403145 
NEW wil.0 .2008 43522,0 63.7 
Toc B90 .3504 3082.0 3446 
TOR 17.0 . 44° m47 40 Boa 
TIM 4.0 . 137 184.0 44,0 
XIT 16-0. 3? 1386.0 1346.0 
MYL O40 4 0 0,0 0.0 
MV O40 4 0 0,0 0,0 
Ins O40 « 0 0.0 0,40 
TRS O40 4 0 0.0 0.0 
PLC O+0 4 0 0.0 0,0 
SCN O+0 +4 0 040 0.0 
DRAWL INE O40 0 040 0.0 
NRAWBLOCK 0,0 + @) O20 0,0 
O40 ¢ 0 0.9 0.90 

O40 4 O G,.0 0.0 

O40 4 8) 0,40 0,0 

0.0 4 0 O40 0.9 

Ay. + G 6,6 0.90 

0,0 , 0 O40 OG.0 

0.0 4 0 O40 O40 

O40 4 0 040 0.0 

0,0 . 0 0.0 0.0 

TRC 0.40 4 G O.0 0.0 
RENT! 0.0 5 0 O,0 040 
SINCSF O.0 4 0 O40 0,0 
COSCSF G.0 . 0 O40 0.0 
LOGCSF 0.0 4 G 0.49 0.0 
ATNCSF 0.0 4 0 0.0 0.0 
LNCSP O40 4 0 0,6 0,0 
EXPCSF O40 4 QO 0496 0,0 
SOTCSF 0,0 , ) 0,0 0.0 
MRR O40 4 0 0.0 0.0 
RLS O20 0 O40 0.4% 
UBUSY 040 5 0 0.0 0.0 
FOT 0.0 . 0 0.0 0.0 
UWAIT 0.0 4 0 0.46 0.0 
UCLEAR O40 ¢ 0 0409 0,0. 
HLT 0.0. 0 040 0.0 
MEM O40 4 o 0.0 0.0 

24-9 L,1E4 
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APRFENDIX C - Execution Seeeds of Microcoded Pe-macine Tnstructions 


REFORTS ~ MICKO 
{ ALL OF 


CONE TIMES 


INTERF FAGE EXCEFT DLG,sSRO»LLA > 


14.3 SLOCTIOVHD = 


(NTOVH = 4.4 COREOVHD = 7.0 
OF CODE MNEM FREQ FRERC MICS AVEMICS WMPFERC 
LoS CSF 16959,0 . 43 2+FE? 1693.3 .1756 
144 IXA 162162.0 4. 412 ?,GE6 6057 + 601 
Lé? L.oO L746259.9 2 445 4,456 3449 . 368 
17. SRO 169114.0 + 42° 6.0E6 35.2 4 364 
O SLIO-TOTAL 436123.9 +1108 J+ lES 11,6 4 309 
174 Clr 2ue47+0 2. &4 4.7E6 1865.1 4 290 
136 CHR 211040,9 . 336 4.5E6 2165 2 277 
189 STM wwe » L4l 325E6 63.2 4 214 
198 LLA B7744.0 , 223 3+OES6 34.5 4 185 
188 LoiM 125024.9 . 318 2+BES Sere « 170 
135 DIVER 11403.0 . 29 2a SES 203.1 . 141 
144 MFR 2320600 4 OF 22k dé 93.4 4 132 
145 LA 191id24.9 . 48S 1.B8E4 725 6 110 
143 MFI eASPisd = 1.8E4 7204 4 108 
138 FLT 4708.0 . 12 1.5E6 356285 . 167 
179 LOC 384607.0 . 98 1.7E6 43,1 . 1064 
O SLOL-TOTAL 149834.0 . 381 1.756 11,4 4. 1064 
127 SLOC-~TOTAL 65650620 11495 1.7E6 eeu ¢ LOS 
131 ADK 3689740 4 94 1.7E46 45.5 2 103 
142 MOV 7250490 2 Ft 1+4E64 200.1 . 6858 
130 ALT L41437.9 . S59 1,454 Pe? + B4 
O SIND-TOTAL LOOS89.F . 256 1,.3E4 1343 + 2 
139 INN 12046.0 . Si 1.3E6 iG8.7 . 80 
Lvs EQUI 373840 +. 142 1.,1E4 2044 2 S&F 
eae SLUOG P74ASS.L0 . 247 1.,1E64 11.46 . 6? 
173 RNF 46464,.0 , 118 1.-1&6 24.1. 68 
236 SLUOS 6410.0 . 245 1,1E4 11.4 .» 68 
1a? SEI 110345.9 . 2580 1,1E4 PsF7o 2 85 
201 LEST 4742540 . 121 1,1E4 eee « 6&5 
207 CGF B997+0 2. 25 964098,.1 107.4 4 3° 
206 CLF 2216-0 . 1 F14973.8 747 2 36 
248 SINTO 76506.0 4 194 6597406.6 Z1.2 + S2 
205 CXF 1744.0 . 4 BS5445.1 490.5 « G2 
214 SLOLA 69548,0 2 177 BOSSIP. S 11,6 4. 49 
141 FF 207015.9 6 SSl 7468164.7 bof 2 AF 
i? LUC 154163.0 . 392 7209177 447 4 44 
202 LOL. 17274490 4. 44 &31890.8 3425 2. 39 
199 LOE 26502.0 4 72 IPLZ51 66 20-7 + 34 
156 UNT 6146.9 . 16 3/279048 GS-2 4. 35 
L3s UIP 93776490 4 251 $66054,8 Jefe SS 
243 SLOOLS 48589,0 . 123 YOS/08.7 11.4 . 34 
134 DVI 2710.0 5 7 342044.0 200.0 . 33 
200 LEQT 48304.0 . 125 PL2S77 1 10.6 . 31 
242 SLUOLI 43353.0 + 110 2O02165.8 11.6 +. $i 
234 SLUOS - 4A1016.0 4. 104 473533148 1i.6 2 29 


STO 
SLOO4 
STL 
IND 
SLOGOLS 
SLOUL 2 
SER 
GRTI 
SLOLS 
REF 
bon 
SIND 
AUF 
SLIO?7 
INC 
ALi 
SLUOLG 
SLOL4 
SLO? 
STE 
GEQT 
LEICN 
LOA 
NEQT 
COMPARE 
SLOULIS 
MOV 
SLUOS 
SING? 
CRF 
SINGS 
SLOULS 
MVE 
NOT 
ANT 
SINnA 
SLO 
SLUOP 
SINS 
SINS 
TOR 
SLUL? 
SAS 
SINGS 
SLOLI4 
NGR 
SLOLS 
SLOLIG 
SLILS 
SRS 
SLIILL2 
SLOUOL4 
LCA 
SLULIL 
SLOIL? 


S46921,40 
27403.0 
34143.0 
BO2S.O 
2esF G0 
20744.0 
4440.0 
22395 .0 
19253.0 
2318.0 
2928.0 
P7650 
11915.0 
15924.0 
S311,0 
w/OD» 
14639.0 
12962.0 
12750.0 
11931.0 
6162.0 
14210.90 
2111.0 
1254600.0 
BPO.0 
7729.0 
L598.0 
8413.0 
S449 .0 
wiraed 
3113.0 
wedeed 
44749 
667940 
11701.0 
eu? PsQ 
3751.0 
3640.0 
2136.0 
2130.0 
424549 
3233.0 
22640 
1312.0 
1857.0 
964.0 
1431.0 
1543.0 
1498.0 
7140 
1320.0 
937.0 
44340 
63240 
361.0 
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ho 


ho 


fonts 
“PS Mo pet Gb OG be se fo CP 


Ud bs 


he 
bs 5 2a 


Mh Pie i GO & b bh OP Ge 0 es Ch 


58623542 
S20140,9 


2E7058.9 
2U7826,8 
240578 .1 
253191. 
224315.4 
225201.8 
2O09198.4 
19232543 
191625,4 
L87680.4 
184455,.2 
181749,.2 
161751.4 
157854.7 
150435.5 
150277.9 
134679.2 
L31744,4 
12691549 
L22921.2 
119314.90 
113757.0 
Li2zss2.6 
LOOP92.3 


P7 FLAG 
67680.7 
6357449 
HOPPE AF 
60447.6 
S7LGL.4 
3? 314.4 
BOSSE .5 
sO7O9,7 
4$55263 
42255.0 
41909,.8 
41806,0 
41434.5 
3751044 
33984.8 
2572744 
21504.1 
1?352.8 
19151.3 
17863.9 
17365.4 
14773.3 


weeds. O 


(11426.1 


P2274F 
7297S 


ea #5 vy 
6523.35 


10.435 
11.4 
P63 
4449 
11.4 
11.6 
weed 
10.1 
11.4 
70.2 
6547 
19.4 
13.9 
11.4 
21.9 
2540 
11.4 
1144 
11.4 
1143 
21.4 
3.7 
O22 
794 
130.1 
11.4 
63+2 
11.4 
17.6 


411.0 


17.4 
11.44 
13244 
£46 
4.8 
19.7 
11.4 
11.5 
19.4 
19.4 
ad 
11.4 
150.4 
17.64 
11,6 
20,0 
11.6 
11,6 
11.6 
esol 
11.4 
11.64 
20,8 
11.5 


— 11.4 
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184 
186 
igi 
128 
183 
208 
230 
18? 
145 
133 
129 
213 
2314 
140 
1S 
i52 
153 
i55 
15? 
176 
177 
180 
192 
209 
210 
2il 
212 
214 
215 
246 
247 


STR 

LiF 
COMPARE 
ABT 
COMPARE 
Sir 

FLO 
SLILLS 
STF 

NGI 

DIF 

ABR 

BET 
SLILLS 
INT 

565 

SQL 

SOR 

IAS 

S2P 
COMPARE 
COMPARE 
COMPARE 
IXF 

IXE 

RYT 

EF J 

NF J 

ALT 

NOF 
SLOOLS 
SLOOLS 
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oooadococococ00s 
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9188.5 
4508.8 
$351.0 
3070.4 
2430.9 
1803.6 
1237.9 

P4h+2 


7900.8 


SOOSSDOSOSCSGOOSCOOCSOSGOSOOSOSOCOSOTOSCSCSOOOOD 
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“J 
tod 
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REPORT? ~- MACRO CODE TIMES 


CNTOVH 


OP CONE 


127 
142 
139 
130 

0 
195 
237 
234 
204 
149 
204 
200 
205 
248 
216 
172 
202 
190 
156 
243 
134 


Pred 
pores 


> FOR 


4.4 COREQVHE = 


MNEM 


CSF 


SLUO-TOTAL 


FF 
STM 
RNF 
LCT 
LLA 
CGF 
_ UF 
TVR 
CLE 
MPR 
FLT 
MPI 
Lic 


SLUL~-TOTAL 


ALR 


SLOC-TOTAL 
MOG 


INN 
ALT 


SINU-TOTAL 


EQUI 
SLOOS 
SLUGS 

STL 
SEI 
LEST 
LEQI 
CXF 
SINDO 
SLULA 
 XxJIF 
a 
Lok 
UNI 
SLUOV2 
OVI 


14.7 SLOUCTOVHD = 7.4 

FREQ FRERC MICS 
146944.0 2. 43 2+ PE? 
eoe4d7,O 5 &4 1.4567 
LS2307.0 . 4123 S,454 
1910467,.0 . ABS 7+ SES 
125024.9 . 317 7+GES 
176347.7 . 442 we? kG 
211040.9 . 336 eee] i=) 
L69254,7 2 430 2+ GES 
$36732.0 2.1108 we LES 
209183,0 4 S31 DeOES 
BoIdO5+O0 2 141 3+SE4 
46447,.09 + 118 224E4 
1541463.0 . 391 3+SES 
7742.0 4 223 2+/EG 
8997.0 4 23 2+ 4Es 
PEHS7.0 - 251 2+ 4b 
11403.0 . 27 22Gb 
L22i7.0 4. Si 2+ GES 
2o2e9h.0 24 SF 22s 
4905.0 . 12 1,8E4 
2439220 + 2 1.564 
S38607.0 4. FE 1+7E& 
149822,9 . 386 1.7E4 
3689740 24 94 1+7E46 
6657 37.9 .1dee 1,7E4 
725020 4 18 1.454 
12046,9 4. 14 1.454 
14i35160,.0 . $59 1.4Eb4 
101162.9 . 257 1.3E4 
24.0 . 142 1+1E6 
97534.0 . 248 1.1ES 
Ph5743,0 4 245 1,1F&4 
S$4185.0 . $7 1.1&4 
110354.? . 280 1.166 
$7624.90 46 121 1.-1E4 
464046.9 4 123 1,0E4 
1743.0 + 4 PE7 217 +5 
76596.0 4 194 BS7994.3 
69S50.0 2. 177 BO6297.° 
119715.0 . 39 749505.4 
17279.90 4 44 6117351.1 
28540.0 . 72 oP S235.0 
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2u4 
175 
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Li? 
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BY 
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o? 
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235 
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244 
217 
sew e) 
218 
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182 
24g 
239 
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219 
1?4 
Yi 
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15? 
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250 
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api ry 


ae ed ah 
2oe 
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28 
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Bae de Bee 
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oo Dat Be 4 


(Bee Bee edt 
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ae ae & 
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166 


2d 


24 


GRTI 
SLUOL4L 
SLO 
STO 
NEQI 
SLO4 
INI 


~~ Seoois 


SLOL2 
SER 
SLULS 
REF 
ANT! 
Loge 
SIND 
SLU? 
ADS 
SLOUOLG 
ING 
SLO? 
SLUIL4 
CRF 
 $Ts 
GEQT 
LOCN 
MOV 
COMPARE 
SLULLS 
LA 
SLUGS 
SING? 
SING 
SLUILS 
MVE 
NOT 
SIND4 
SLOOL 
SLIO? 
SINKS 
SINKS 
LOR 
SAS 
SLOL? 
SINS 
SLILL4 
NGR 
SLOLS 
SLILIG 
SLILS 
SRS 
SLILIS 
SLUOL4 
LCA 
SLOLAL 
SLIL? 


2240740 
ASSS7 20 
41050.0 
$6935.90 
15605.0 
2775040 
BOP4.0 
2239540 
20746.0 
4440.0 
19246.0 
232540 
12620.90 
293350 
9653.0 
15944.0 
776840 
13654.0 
BS45.0 
1296240 
12763.9 
J7P40 
Li?31.o 
6171.90 
L4213.0 
1557,0 
P12.9 
P7274 
2123.0 
BSS1.0 
3450.0 
3114.9 
weOP?.O 
447.9 
674540 
2067.0 
3740.0 
3659.0 
2138.0 
2130.0 
427440 
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3235.0 
1315.0 
1857.0 
P6640 
1643.0 
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1498.0 
7120 
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HLOI04.2 
JO1L784.0 
4735/0740 
SE4093 25 
330144.5 
$214652.0 
26087143 
2OPRS4.4 
24060444 
23336947 
2e3170.4 
2O083606.5 
203733-9 
197788.7 
193704,7 
184057.3 
161958.2 
158534.6 
151015.4 
LSO48P?.7 
L5027 467 
L4B917.1 
134391.8 
132508.° 
12691927 
1L179070,.2 
Li6034.7 
1i2743,0 
107661.7 
PP1L78.9 
67815.0 
6107044 
0276.1 
37878.3 
27&O8 2.5 
JO0876.3 
43342.0 
$2285.14 
42014.2 
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4147344 
3890322 
S7O06~2 
25817+5 
21504.3 
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LOE 
COMPARE 
ABL 
COMPARE 
Sir 

FLO 
SLULAS 
STF 

NGI 

LIF 

ABR 


BR Ee ze ‘ 


SLOLLS 
INT 
565 
SQ1 
SQKR 
IXS 
S2F 
COMPARE 
COMPARE 
COMPARE 
IXF 
IXB 
BYT 
EF J 
NF J 
XIT 
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SLOOLS 
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APFENDIX Oo - Program Execution Sreeacks 


REPORT A ~ COMPILATIONS 


ANY ii LSi-il 
bo PCr SE PSE Lines gecs Llines/minm Secs 


TRAC.SMAIN 1274 B4 a9 D4 FO? 


ANJUSTATS 27S 36 495 30 O58 


RTLITOEDLT 304 a? 6a? | 2d 459 


LSE/EIS/FIS LSI/EIS/FIS/MNIC 
fr Ppoeram Lines seca lLlines/min secs Lines/min 


TRAC.MAIN 1276 S4 "" FOP See L4azsS 
ADISTATS 2? ao Oe 17 pba 
WHETSTONE 252 2& wa) is — FEO 
CALC 434 3? 666 22 1is4 
AREF ee 43 1090. 26 Le3i 


RTLITGEDLIT 30604 2d Fe | iS 1227 


iN IE |" 
ee 


Iie 


QRT Bo ~- WHETSTONE 


GHY = 19 


EAECUTION TINE IN SECONDS 


mocdule 


2008 weee nade wee cece cone 


Ls 


SIMPLE IDENTIFIERS 
ARRAY ELEMENTS 
ARRAY AS PARAMETER 
CONDITIONAL JUMPS 
COMMITTED} 
INTEGER ARITHMETIC 
TRIG FUNCTIONS 
PROCEQURE CALLS 
ARRAY REFERENCES 
INTEGER ARTTHHETIC 


STANDARD FUNCTIONS 


ANY 11 


core O50e eee cane sees aces 


LS lata 


Pees ewes tose sone eves reve 


O 


2 
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LSI/VETS/FIS 


ene wees ate cece cave core mene seer some veee Hace 


0 
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ence E006 tees even 


G4 


LSI/ELS/FIS/MIC 


WA0e BOE wee oes Ones anes 1908 BEEe CROs Reee eeew cree cmue wey Seer 
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1 


é 


ho 


14 


Li 


REPORT © - SORTS 


EXECUTION TIME IN SECONDS 


ailsoritinim LSI~-i11 


000 C008 sone one emey been one meee Seee sete eee mice eres care ones 


QUICKSORT (recursive) ra 
QUICKSORT C(nonrecursive) a7 


HEAPSORT 99 


LODT/ELS/FIS 


free erwe ence rene ence anes Been Onee Mtee woes eee 


LSI/EIS/FIS/HMIC 


Sees MBOe B0ee Hele BORE TOCE HEED Ines EOEe OnOd COED BREE SOU One Goon 


REPORT Dr ~ CROSS-REFERENCER ANI BALANCED TREE SEARCH ANID INSERTION 


I XECUTION TIME IN SECONNS 


m POSPaMm Let id LSl/eElo/r is LST/EIS/FIS/MIC 


eee eee cone sees 260 wenn oree fete teen anes seve cove wnoe eee eoee core vere owas pees meee meee eee Stee noOd cent One were BOOh bene Woe HOES COUR Enon DEER OOEE ORES EUES CHEE Cote 


ITROSS-REFERENCER 
With full iistings 34a? 435 wan? 
Without Listings — 215 £46 


BALANCED TREE SEARCH 
AND INSERTION 62 &2 34 


QAEPRPENTTIR E - Rerort Ganerators 


PROGRAM STATS 3 


TYPE ENTRY = RECORD 
MICS 
FREQ 
ENT? 


REAL & 
REAL. 


Pe ey 


VAR T 3 ARRAYE1,..1324 OF ENTRY? 
IvyJ ¢ INTEGERS 
TOTALMFC 3 INTEGERS 
FREQTOTAL» MICSTOTAL 3 REALS? 
M 3} ARRAYE1..1327 OF STRINGCLLI: 


CNTOVHEy COREQVHOySLOCTOVHDsxX 3 REAL? 
REPORT 3 STRING? 

CONFIGURATION: TITLEL» TITLES ¢ STRING: 
REY 3 TEXTS : 

OF ¢ ARKAYC1..1321 OF INTEGER? 


PROCEQURE INITVARTABLES + 
BEGIN 


WAITECCNTOVHD g= 7)» 
READLNCONTOVHT > ? 

WRITE CCOREOVHD g= 7 O3 

READLN (CORE OQVHE > ¢ al 
WRITE C’SLOCTOVHD 3= 7 )y 

READLN CSLOCTOVHD > ¢ 

WRITE CSOQUTRPUT FILE NAME s= 73% 
READLN CREPORT 2 3 


WRITEC TITLED @= 7)3 
READLNCTITLEL > ¢ 

WRITEC TITLES 3= 73% 
READLNC TITLES) $ 

WRETE (CONFIGURATION 3= 73> 
READLNCCONFIGURATION) ¢ 


ENDS 


PROCEDURE XCHG# 

VAR TM $ STRINGE1OI3 
TOP $ INTEGER 
TENTRY 3 ENTRY3 

BEGIN 

TM 3= MDT 
TOP t= OF CUD 
TENTRY ¢= TLJT3 


MCJJ 3= MEIJt1lids> 


ele ree 
TEI 3 
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MUU 3 
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TENTRY 3 
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poo 
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PROCEDURE FRINT 
VAR IT os INTEGERS 
FRO», MPC 3 INTEGER? 


AMIOC 3 REAL? 


BEGIN 
REWRITE CRE Ts REPORT > 3 
WRITELNCRP Ts TITLED) ¢ 
WRITELNCRE Ts TITLE ) > 
WRITELN CRE T > ¢ 
WRITELNCRP Ts CONFIGURATION) & - 
WRITELNCRET > s 
WRITE CRE Ts “CONTOVH se CNTOVHDE: ” 
WRITELNCRP Ts? SLOCTOVHE = 
WRITELN CRE T ) ¢ 
WRITELNCRET > 
WRETECRE Ts ¢ OQPCODE 
WRITELNCRET » 7 
WRITELN CRE T > 3 


ed 
powes 


MAEM 


MICS 


FOR To 3s 

BEGIN 
FRC 3 
MPC 3 


1 TO 132 D0 


TELI.FREQ = 
AMIC += 0 
ELSE 
AMIC 


iF O THEN 


DP core 
405 


WRITE CRE T2OQPCTI = SeMCII 3 
13 


WRITELNCRE TyTETI,MICS 3 
EN DF 


WRITELNCRET 3 

WRITE CRET » 

WRITELNORET » ? 
ENS 


‘sMICSTOTAL 


PROCEDURE INITHI > 


BEGIN 
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MOS] 3 


MCS 


‘SLUC-TOTAL “ 
“ABIL SS 
AER § 


wo 


COREOVHE = 
Py SLOCTOVHE) ¢ 
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? 
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+ 


TOLI.NICS/TCOLI.FREQs 


1 


* »COREDVHE) 3 


PRERO? ) 5 
MPERD 7 3% 
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€ 


TELI.FREQ 


PAMIC 
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a4 
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¢ 


10000)3 
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+’ TOTALMPC 
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? 
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MES 

MC64 

MC? J 

MCB] 

MCP I 

‘MELO 
MOLL 
MCL2I 
MCIS7 
MCL42 
MELS I 
MCié. 
MEL? 
MCLiSl 
MCi?d 
MC2O0] 
MC2L4 
MCE22 4 
MC234 
NO24I 
MO2S] 
MC244 
MC27 J 
MU2SI 
MC29 4 
MCSO] 
MOS 
MC32) 
ME 234 


ALT“ 
“ADK ’ 
“ANT 
‘TIF ? 
“TIVE? 
“TIVR 
“CHK S$ 
“FLO’ 
‘PLT’ 3 
“INN? # 
“INT? 9 
‘TOR? + 
“MOD? 
“MFI S 
“MPR? 9 


HO 


33 
ts 
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& 
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“SP “Sr « 


“S69 % 3 
“SOL? 
“SOR? 3 


HOU WH OE ROR BOW OH HO OH OY 
ty 
1 
7 
m3 
Sh Nh 


Hy 
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mag 
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™ 


Hy 

~ 
bead 
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iss 

“te Me 


“UNIS 
‘SRE G 
“CSP 43 


7 LDN? 


bt 


H HOH HOR 


MES4 eae 
MESS 7 bess °F UPS 3 
MCS7 1 x: f TNT? 3 
MOSS] os “TxA? 


Wee ee OE HS Ob Ob oe oe Ei 


MESSI 
M407 
ME4i1 3 
MO 422 
MU43 7 
ME449 
MC452 
ME46] 
MCA? 
MC484 
— MEAP 


“LAO? 3 
“LCA 
“LGOO? 
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3 
a 
? 
3 
“MOY? > 
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? 
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3 


#o oF 


“MVE 
“SASé 
‘SRO’ 
XPS 
“RINE 3 
‘CIP’ 3 
‘COMPARE’ 3 


DH OS Sy Oe be ye He ee Sd 


“HOH H HOB HOH HOR 


ENT » 


PROCEDURE INITM2 > 


BEGIN 
MESOI t= “COMPARE” > 
MESL1 ¢= “COMPARE ’ > 


iE 
$3 


MES2I 
MLSS 
MCS4] 
MESSI 
MES6I 
NES? 
MESSI 
MCSF 
HE6O] 


“LOA 
“LOC? 3 
‘COMPARE’ 3 
‘COMPARE? 3 
‘LOL’ 3 
‘COMPARE’ 3 
‘STR’ 
USE 
“LTE? 3 


HOH 


HOH HO OHO OH 


Oe Se bye ye SS SH OH OH SH SH SH FSH Sy Be He Hey SH en Se HY 


MEGi4 $= “STF?S 
MDGS = LOM’ 3 
MCD634 ¢= “STM’ 3 
ME S40 og “LOB? > 
MDGS] i= “SYTB’s 
MEGS] 35 SIXES: 
MC4/7] 3= “REF? 3 
ME650 ¢= °CRF’> 
MCS699 $= “EQUI’s 
MO7O1 ¢= “GEOT’ 3 
MOVLid ¢= “GRTI7s 
MO720 32 “LLASS 
ME7SI 3= “LOCI? s 
MEVAI g= “LEAT ’s 
MEOYS4 $= “LEST? $ 
MC7G4 3= “LOLs 
MO?71 f= “NERT’$ 
ME?VSI s= “STL’s 
MO?3I 3= “CAR S$ 
MOBO ¢= “CLE ’S$ 
MEG@LI ¢= “COR? s 
MCG24 $= “Sirs 
MESS] 3= “IXR’ S$ 
M[DSB49 35 “RYT ?S 
MCOGSI] ¢= /EFU> 
MES6] ¢= “NFJ’s 
MCS71 ¢= “BRT? > 
MEBSI = *XIT? s 
MESA 3= “NOR! > 
MOVO] f= “SLOLI? 
MCOQUA $= “SLOL2? 3 
MO?20 3= “SLOULS’s 
MOGSSI gs “SLELA’ gs 
MCS44 $= “SLOG? s 
MOQSI ¢= “SLOLG’ 3 
MCO9S] t= “SLULZ? 3 
MOO?7 I ¢= “SLOLG’ > 
MO?GI 3= “SLYILG’s 
MES? gs “SLULIO? > 


ENO 


PROCEDURE INITMS3? 


BEGIN 


MCLO07 
MELOLI 
MELO 
MC LOS 
MOLO4 9 
MCLOS 
MO LOGI 
MCELO?ZI 
MCLOS2 
MCLOS3 
MCLIGI 
MCLIL 
MCLI27 
MCLIS. 
MELLAI 
MCLIS 
MCLL&3 
MCLIZ7 1 
MCLI84 
MELIP] 
ME L20] 
MCL214 
MCi22 4 
MOL239 
MOL247 
MCLLS3 
MCL24 
MCL27 9 


t 
i 


iH EH POP HR 


HOE OH OT 


Sh ee OH OH OS Oh 


13 8 
33 


HOH HOH OR WOH HOH OOH 


oH 


CO ee ee Le ee 


"SLU 
‘SLOLIZ’ 
‘SLILAS’ 
*SLULA4? 
*SLOLAS/ 
‘SLOLIG’ 
‘SLUOL S$ 
'SLUOZ’ 3 
‘SLOOS’ 3 
‘SLUOA’ § 
‘SLIOS 9 
*SLOOS’ 3 
"SLE?! § 
“SLOG! 3 
‘SLIIO?? 
‘SLUOOLO’ S$ 
‘SLUOLISS 
‘SLOOL2 3 
‘SLUOLZ’ 3 
‘SLUGLA’ 3 
"SLIOLS 3 
'OLNGLG? 3 
*SINDO? 3 
‘SIND’ 3 
“SINIIZ¢ 3 
‘SINDS* 3 
‘SENDA’ 3 
*SINIS 3 


“Sy “St Me Se “te Se 


HOH OU OW 


MCLLB 4 3 ee, 3 
MELS9I 3 SIND? 7 3 
MCLS@O] ¢= “SLOL~-TOTAL ? > 
MOGSLA ¢= “SLOO-TOTAL * > 
MELAS] ¢= “SIND-TOTAL ~ s 


Et 9 


BEGIN 
WRITE C*INFEUT 
ei ADLN CI 2+ 
UNITREATIC&S»Ty1lOS22T 2033 
IF IQRESULT <> 0 
BEGIN 
WRITELNC “IO ERROR 
EXITCSTATS 3 
EN Et 9 


THEN 


~ FATAL? 33 


INITVARTABLES3 


TOTALMPC 3s 
FREQTOTAL 3= 
MICSTOTAL 3= 


WHAT BLOCK NUMBER? =° 3 


FOR Dogs 4 
TLII.MICS 


TO 129 DO 
t= TCDILHICS ~ (TLIILFREG & CNTOVHED 3 
FOR I 
BEGIN 
FREQTOTAL 
MICSTOTAL 
ENLI3 


1 T0 129 5 


D wee 
a) 


tH es 
ao 


TEIILFREQ? 
TLII,HICS 


FREQTOTAL + 
MICSTOTAL + 


F wre 
3 a= 


D mn 


FOR I j= 
TELI.MICS 


“ 


ee 


127 00 
TETI.MiCS — 


eles 
bis 
% w 
Sigs 


C(TEII.FREQ * COREQVHD) + 


D sone 
Pats 


TELI.MICS TELI.MICS ~ (TlLILPREGQ & SLOCTOVHDED + 


FOR I 130 TO 
BEGIN 
TETILFREQ 
TELTI.MICS 
END 


132 [10 


D wee 
ent 


FOR I 
BEGIN 


9O TO 105 00 


FP mee 
need 


TELSOI.FRERQ 
TLLSGI.MICS 
ENDS 


FOR I ts 

BEGIN 
TCAs 
TELS 

ENING 


104 TO 


LI.FREQ 
La.MiCS 


FOR To gs 
BEGIN 
TEIS21.F REQ 
JELS27.MICS 
ENTIie 


i2o 


TO 


INT TMI1 $ 
INITM2 + 
INE TMS» 


wy? 


1 TO 129° 00 OFCTI 


TEL 
Tee 


2 un 
3 
D> noe 
+) 


SO1,MICS 


died. 210 


TOLSLI.FREQ 
TELSLA.MICS 


+ nn 
a) 
D wn 
35 


12? 00 


> ae 
a0" 


2 ae 
o> 


TLLIS24.FREU 
TLISZI.MICS 


SO1.FREQ + 


ee 


TEIA.FREQSs 
TEII.MICS 


TOCIILFREGQ? 
TLII,HICS: 


FOR I is t= I + 1263 
FOR 2 t= 130 TO 132 00 OPEL t= 03 


WRITELWN $ 
WRITELN (¢ 
WRITELNS 


“42004 e¢S5QRTING’ D3 


FOR Io o¢= 1 TO 131 00 
FOR J og= 1 TO 132 - 7 00 
IF TOJI.MICS < TOI+17.MICS THEN XCHG: 
PRINT $ . 
CLOSE CRE Te LOCK 3 


INU, 


PROGRAM CSFPSTATS? 


TYPE ENTRY = RECORD! 
MICS 
FREQ 


END $ 


to he 


VAR T 3 ARRAYCL.+41] 
TeJ 3 INTEGERS 
FREQTOTAL » 
M 3 ARRAYCL..41 
OF 3 
RE TNAME 3 
REPT 3 TEXT$ 


PROCEDURE XCHG? 

“VAR TM ¢ STRINGED LOIS 
TOF 3 INTEGER? 
TENTRY 3 ENTRY? 


BEGIN 
YM ¢= 
TOF 


MOL as 
OPCI+L > 


OF CII 35 
= TOL 13 


TEA] t= 

THE 
TOFS 

TENTRY 3 


MCItL] t= 
OFCUtL] t= 
TLItLd b= 


ENDS 


PROCEDURE PRINT 
VAR To 3 INTEGERS 
FPPC, MPC 3 
ANIC 3 REAL? 


BEGIN 
WRITELNCREPT 2 5 
WRITELNCREPT » ’ 
WRITELNCREPT > 3 

WRITE CRERPTs “ PROC 
WRETELNCREPT » ¢ 
WRITELNCREPT ) 


FOR To = 
BEGIN 
(PREQTOTAL 
BEGIN 


IF 


MICSTOTAL ¢ 


ARRAYCL.. ald OF 


STRINGS 


= 0} OR 


REAL 3 
RED AL 


OF ENTRY 


REAL ¢ 
STRINGCLL A? 
INTEGER » 


OF 


INTEGER 3 


STANDARD 


FREQ 
AVEMICS 


MNEM 
HICS 


1 TO 41 nO 


(MICSTOTAL = 


PROCEDURES ¢ 


FFERC’ 33 
MPERCS > 3 


O) THEN 


+> 


EN 


WRITELN(’A TOTAL IS ZERO‘)? 
EXITCCSPSTATS) s 
ENT 
FEC i= ROUND CC TOII.FREQ/FREGTOTAL) * LOQ00)3 
MPC $= ROUNDCCTOII.NMICS/MICSTOTAL) #® 10000)3 


IF TCLI.FREQ = 0 THEN 

AMIC f= @ 
ELSE. 
AMIC f= TOLI.MICS/TCII.FREQs 


WRITECREFT*OQFPCII ¢ SeMCII ¢ il» TCTI.FREQ ¢ 1 


WRITELNCREPT, TOIG.NICS ¢$ 13 2 LeAMTC 3 11: 
ly 


WRITELNCREPT > § 


WRITE CREPT » ¢ 


WAIT 
END 


ELN CREF T y ’ ‘esMICSTOTAL ¢ 13 ¢ 13 


FROCEDURE INITH1> 


BEGIN 
POR 


MEL 
NEI 
MOBI 
MES] 
MESI 
MEG] 
MEI 
MOBI 
MEP 


MOELOI 


MC11 
MCL 
MOIS 


ME142 


MO24 
MC2S 
MO26 


MC273 
MC28I 
ME293 
MEZOI 


MU SL 
ME S2 


MESSI 


MC34 
MESS 
MOSS 
MO37 


It= 1 70 41 DO MELT] t= * 73 
t= TOC § 
t= “NEW $ 
t= MUL SS 
ts MURS 3 
t= ‘XIT"G 
f= “UREADS 3 
t= UWRITES3 
t= “TOS G 
t= “TRO 
re TIM'S 
dots “FLO 
J t= ‘SNS 
Jot= /DRAWLINE’$ 
t= TRAWBLOCK 3 


= 
Al 
-l 


‘TRO’ 3 
7 RAND 3 
‘SINCSF? 3 
‘COSCSF? 3 
‘LOGCSP? 3 
‘ATNCSF’ 3 
‘LNCSP 3 
‘EXPOSE 43 
*SOTCSP 3 
“MRK 3 
“RLS SG 
“LOR? 3 
“UBUSY ’3 
‘POT! 3 


HOW HOH HO BOR 


J 
J 


a 
a 
a 
il 


Ho HO OU 


St a i oe ed 


R 


“sFREQTOTAL ¢ 9 3 


MES8I 3= “UWAIT’s 
MCS9] t= ‘“UCLEAR’# 
ME40] g= “HLT! 3 
MES1] 3= “MEM? 3 
END 9 
BEGIN 


WRITE C’INFUT WHAT BLOCK NUMBER? 372% 
REATILN CD) 5 | 


UNITREADC Ss Ts S007T90) > 
IF TOQRESULT <> O THEN 
BEGIN 
WRITELNC’TORESULT = ‘’»IOQRESULT)+$ 
EXIT(CSPSTATS > + 


END s 
FREQTOTAL ¢= OF 
MICSTOTAL $= O3 


FOR Do g= 1 TO 41 00 
BEGIN 
FREGQTOTAL ¢= FREQTOTAL + TCII.FREQ: 
MICSTOTAL ¢= MICSTOTAL + TEII.HICS 
ENT 


FOR Io o¢= 1 TO 41 00 OFCTII ¢= I 
INITMI 


WRITELNs 
WRITELN(’..2++50RTING? 33 
WRITELN> 


FOR Io ¢= 1 TO 41 00 
FOR J ¢= 1 TO 41 - I G0 
IF TLII.MICS < TLI+LI.MICS THEN XCHG; 
WRITEC OUTPUT FILE NAME f= 73% 
REATILN CRE TNAME 3 ¢ 
REWRITE CREP T » RP-TNAME } ¢ 
PRINT $s | 
CLOSE CREFPT sLOCK) 3 


ENE. 


a fo ee iE i th l x 


FF 


CRWHETSTONE BENCHMARK - ~ DIRECT TRANSLITERATION FROM: 
"A SYNTHETIC BENCKMARK® &8Y H, J. CURNGQW & Be. As WICHMANN 
“THE COMPUTER JOURNAL’ VOL 19s NO, &) 


(# tranmsliteraetion dome bs Roger Fetersoarny, 
ate 


[/0 modifications done by Gordan Smith 3 


CM EEK D C% TURN ON “GOTO ~~ SORRY ABRUT THAT! #3 
PROGRAM WHETSTONE ¢ 


CONST T=0.4999753 


TYPE ARGARRAY = ARKRAYC1i+«.4] QF REAL» 


VAR EL 3 ARRAYCDL.,.4] OF REALS 
XeVYoZeKleX2sXSyKX4 3 REALLY 
MODULE s Is JeXeLeNLleN2@eNSeN4de NS oN SoN7eNGeNPeNLOreNil 3 INTEGERS 
HTsLTieLTSesTTeWKRT 3 INTEGERS (* TIMING VARTABLES x) 


PROCENURE FPACVAR ES ARGARRAY) $ 


LABEL Ls 
VAR J od INTEGERS 


BEGIN 
JE208 


ELLd=(ELLIFELC2I+EL3I~EL41) #TF 
ELVIS CECLAITECSI-ELSI+EC SA KT? 
EL GIS=(ECLI-ECSITELSITEL SAI ET» 
ELSI se CEC LITE CAIFEC SIFTED AIS TS» 
Jeet sy 

LF Jeé& THEN 

GOTO 1 

ENO C8 FROCERURE FAX) 


PROCEDURE FoO> 


BEGIN 
EALUIS=ELCKT9 
ELCKI3"E10L33 
ELCLIIEiC UI 

ENDS © PROCEDURE FO *#) 


PROCEQURE P3CXsYIREALs VAR Z2sKEAL > > 
BEGIN 


NISPKCATY D > 
Yo=TRCX+tY) + 


Z£3=¢CX+Y)/T2 
NTs OX PROCEQURE 


ie 


3 


* 3 


MROCKOURE MODULE Ls OX MODULE 1: 


BEGIN 
M1c=1,.03 
KBtemd 0} 


XSta-hs 


FUR IT3=1 TO Ni 00 


BEGIN 


O% 


X4ia-1.03 


SIMPLE IQENTIFIERS &) 


z 


KL3= CXL 4+KLTAS-X4 KTS 
N2P=CXLEXS-KXSTKAIRT ? 
RSPBCXL-KSEASERS IT 


K4$=0-X1L4+XS4XS4X4 KT 


EN YI 


INU OX MODULE J *) 


PROCEDURE MOTULESs (x MODULE 23 ARRAY ELEMENTS x) 


BEGIN 
ELCLI2=1.03 

ELEZI$=-1.03 
FOR Its 
BEGIN 


TO Ne DO 


ELC SIs=-1,07 


ELL Ads e 1. Oo? 


ELCLIS=(ELCLAPELCSI4+E LL SA-EAC SAD aT? 
EL CRU =CELLLAFELCSI-ELPSItELC AT aS 
EICSIIH=CELOLI-ELCSIAEL OC SIFEL C4 DRT Sy 
ERLCSd;=(-R LOC LItELCSITELO SIAR ALA eT 


END 3 
ENDS (M MODULE 2 
PROCEDURE MOOULES > 


BEGIN 

Jieds 
FOR Tt 
BEGIN 
IF J 


TO N4 OO 


¢ 


i L. 


Hoe bei 
7 OF 
t oF to t 
oo FT] +e CL oe PTE oe 


t 

HH 
nel, 
Be 


IF J<i THEN 
Jie: 
ELSE 
220 
ENING 


END? ¢x MODULE 4 &) 


%) 


CX 


MOUULE 43 


CONDITIONAL JUMPS 82 


PROCEDURE MONULES? Ok INTEGER ARITHMETIC *) 


BG EN 
We=ly 
DEE 


at Bone. * 
sora F 


Ls Ag 


FOR igs 1 TO NG £0 
BEGIN 
JP IKON SK CLAKD § 
Ke SLR CLERKS 
Pa(L-N DWE LS 
ELCL-LI32J5+K4L3 
ELON-22f=J8KKL 
END 
ENDS OK MODULE 6 >) 


PROCEDURE MODULE7s (& MODULE 7? TRIG FUNCTIONS &) 


BEGIN 
Ast=Ostr Ye =G.53 
ROR £D3=1 TO N? OO 
BEGIN 
XS=TRATANCTARSINGXIECOSCKI/ (COSC KAY IACOS CRY I-1.G035 
YISTRATANCTSRSINGYOACOSCVYIS(CCOSCATYITCOSCNR-Y¥)I-1.033 
END» 
IDnNDe C8 MODULE 7 #) 


RROQCEOURE MODULES: ¢k MODULE 32 FROCEDURE CALLS #) 


. BEGIN 


Me=eb.O% TE=1.0% 231.03 


FOR Ifi=1 To NG DO 
FSC, Yr) 
ENDS © MODULE 8) 


PRUCEDURE MOGULELO OX MODULE 16! INTEGER ARTIHMETIC *) 


REGIN 
Jee eG 
KRp= Se 
FOR Ti=) TO NiO LO 
BEGIN 
JP=UTKN 3 
SS EKF 
AF =K- UF 
Ke=h- JJ 
ENT! 
RNs €% MODULE 1G &) 


PROCEDURE MODULELI$ (& MODULE 11: STANDARD FUNCTIONS #) 


BEDIN 
Xie ofa? 


FOR Ps=1 TQ Nid go 
A2=SQRTCEXPCLNOXI/STID DS 
IND Ok MOMULE 11 &) 


PROCEDURE FOUTCVAR NeJysKi INTEGERS VAR X1+X2eX3eX4iREALD 3 


BEGIN 
TIME CHT LT 23 


WRITE OC’ MODULE “»MODULES SyN3 Sei Se hs) $ 
WRITELNCXL Leia yXetlesdyxXSile GNA SIS rs 
WAT 32 CCLT2 - LTL) + 30) DOTY aos 


TT t= TT + WKTS 
WRITELNCWKT:’ SECB‘33 
TIMECHTeL TL) 3 

ENDS O& PROCELURE POUT *) 


BEGIN (xX START WHETSTONE oe 


OX READ VALUE OF I» CONTROLLING TOTAL WEIGHT? IF T=1Gys 
THE TOTAL WETGHT IS ONE SNILLIGN WHETSTONE INSTRUCTIONS &)» 


WRITELN? 

WRITE (°WETGHTING FACTOR ZT = ’)% READQLNCID¢ 
WRITELN 

Nie=O% 

N2seLeoxyy 

NSs=Lax Ty 

N43 = 34 SRT § 


IN? ds AX 
NSS=OPOXT > 
NYS=SLGKTI 5 
NLGi=0O}3 
NiLs=9SaT > 


(#% MODULAR FROGRAMMING IS USED TQ REDUCE THE LENGTH OF MAIN CODE x) 
MOGULEDT? (8 SIMPLE IQENTIFIERS #3 | 
MODULES =1 5 

POUT CNT »NieNie XL» X2eX39X4) 

MOUULESs OF ARRAY ELEMENTS x} 

MODULE 3 =2 5 

POUT ONS » NS PNS@vELLLIsEL EL SIsEL LC Sa,E1L Cad) 

(Ok MODULE 33 ARRAY AS A PARAMETER >) 

FOR DTs= 1 TO NS 00 


PACEL) » 


MOMULE 3 = 3 
MOUTCNSsNSeNQeE LC LIvEL C2 dE LCST sed cal) 


CX END OF MODULE 3 x) 


MODULE4S$ Ok CONDITIONAL JUMPS #3 
MODULE S=43 
FULT ONG s by Je Xd X29 XS eX4)§ 


WRITELN( MODULE § OMITTED 493 
MOUULES$ (& INTEGER ARITHMETIC *) 
MOUULES=65 

POUT(NGs JeNvELCL Ue EA CSI ELC S72 EL L493 


MOOQULEYs ¢* TRIG FUNCTIONS ox) 
MODULE 3 37 ¥ 

ROUT CNS: dey Ky Xo Xe Yr YO 8 

MONULE@: OO FROCEDURE CALLS x) 
MODULE t= » 
POUTCNG » Je he Xe Yo Ze Z) 9 


OX MODULE 93 ARRAY REFERENCES xX) 


fen bate fale ep ee em 
rarara oi i tt 


Oe ha be fed fo 
t 


Lu tt 


FOR Tis) TOGO NS DO FO: 


MODULES = y 
POUTCNGs dee E LDL Is Ea D2 d sea ae ELLA) s 


MOTULELGs ¢#& INTEGER ARTTHMETIC &) 
MODULE? #105 
POUT CNL Gs JsKRe XD sXe KS 9X4) 35 


MODULELL? ©& STANDARE FUNCTIONS *) 
MODULE $=413 
POUT (NLL: JeN eX eX oXoX) 3 


WRITELNCTT:* TOTAL SECS %)s 
WRITELNC “END OF WHETSTONE?) 
IND. OX END WHETSTONE %) 


PROGRAM BTSI$ (X BALANCED TREE SEARCH ANID 
TYPE 
BALANCE = ~1.s43 
REF = “NODES 
NODE = RECORD 
KEY» COUNT ? INTEGERS 
BAL 3 BALANCE} 
LEFT» RIGHT $ REF 
END 


VAR 
HTrLYisLT2 % INTEGER? 
IeJ»X 3 INTEGER; 
Pot REFS 
H ? BOOLEAN 

PROCEDURE SEARCH(X! INTEGER}VAR 


Fe REFS VAR Hs 


VAR FPleFSt REF 
WEGIN 
IF FF = 
BEGIN 
NEWCR A? 
Ho o3= TRUE? 
WETH FO D0 
BEGIN 
REY 3 
COUNT 
LEFT 
RIGHT 
| BAL. 
ENT! 
ENT 
ELSE 
IF XxX x 
BEGIN 
SEARCH (Xs FU.LEPT eH) 
EF H THEN 
CASE F".BAL OF 
1? BEGIN 
Po, BAL 
H 3= FALSE 
END 
; F°,BAL f= -13 
; BEGIN (XREBALANCEX) 
Pl og= FC,LERT3 


IF Pi™.BAL = -1 THEN 


NIL. THEN 


NIL 3 


PREY THEN 


> mse 
> 


0% 


G 
ae 


INSERTION 


* > 


BOOLEAN?) $ 


woos 
aves 


Pi", RIGHTS 
RIGHT ¢= Fe™,LEFT> 


FE 
pa” 


+ 
a + 
z 


P2°.,LEFT $= Piss 
PC LEFT ¢= FP2™.RIGHTs 


3= F 
F2°, RIGHT ¢= Fe 


IF P27. BAL = -i THEN P°.BAL $= 41 ELSE 
IF F27.BAL = 1 THEN PAT. BAL t= 


FE 
END 3 
PC BAL t= 03 
H 3= FALSE 
END 


ENT 


t= FQ 


ENT 
ELSE. 
x > 
BEGIN 
SEARCH (XsF° RIGHT y HH? 5 
IF H THEN (#RIGHT BRANCH HAS GROWN HIGHER) 
CASE F™.BAL DF . 
~13 BEGIN 


IF FP" .REY THEN 


D nase 


2= FRIGHT S 
FiT. BAL = +1 
BEGIN CXS TNGLE 


THEN 
RE ROTATION} 


FO, RIGHT t= F1T.LEFTS 
PAT.LEFT $= P3 
‘BAL t= OF 

t= PL 


ELSE 
BEGIN 


P2 32 FIT.LERT? 
PIT,LEFT ¢= Pec. RIGHT> 
P2", RIGHT ¢= Pi? 

P° RIGHT 3= FP27.LEFT> 
FPO" .,LEFT $= Fe 


IF Fe™. BAL +1 THEN F™. BAL 
IF P27,.BAL = -1 THEN Fi”. BAL 
FE 


3= ~-] ELSE 
pa oY 


booed 
> ae 
3 


> ase ne oy 
ow ae 


ENT 
F°,BAL t= OF 
H FALSE 
END 
ENT 


P wwe 
2> 


EN 
ELSE 
BEGIN 


1 ELSE FIT. BAL 


Po , BAL 


Pe", BAL 
Pim. BAL 


est] 


EF .COUNT ¢= 
Ho 3= FALSE 
ENT 
ENUF 


MROCEQURE FRINTCF3 
GEGIN 
TROP ae NIL 
WITH F™ [0 
BEGIN 


THEN 


WRITELNCREY » ” 


PRINT(LEFT)$ 
PRINT (RIGHT) 
END 
ENDS 


BEGIN 
TIME CHT yLT1 3 


Pts 
To 9 nO 
o TO 
BEGIN 
X ts 
END 
TIME CHT LT2) 3 
PRINT CP) # 


WRITELNC CCL TS 
ENT» 


Fo, COUNT 


+ 13 


REF > 3 


“s COLNT » ¢ 


Oo? TO 


COCCE RAZ) F CER 
SEARCH (XsP rH) 


“ys BAL S$ 


wb 


33 MOD 


Li?) MOD 


wide 


PROGRAM RQUICKSORT 3 
TYPE INDEX = oO, 


VAR A? 
ct 


oP Pee 


ARRAYDO..2999 9 OF INTEGERS? 
CHAR 3 


HTyLVieyl TS ¢ INTEGER? 


PROCEDURE SORT(L»R ¢ INDEX) 3 


s INDEX? 
+ INTEGERS 


Ry 


X t= ACCLER) DIV 273 
REPEAT 


WHILE ACI « X DO [I 3= 
WHILE X « ALI DO J 3= 


IF [ <= J THEN 
BEGIN 


ENL 


UNTIL 

IF OL 

Le ot 
ENT 


BEGIN 
POR LT 


3 
FOR LTS 3 


I> 


“J THEN SORTCL sj) 3 


“ KR THEN SORTCLs Rds 


= GO TO 7 00 


BEGIN 


(LYS KR 103 + LTLs 
= OCCCCLTS2 K 17) + CLTl & 


WRITEC SPRINT INPUT? 27 O35 
READTLNCO 3 3 


iF C = 
FOR LT? 
BEGIN 


“¥? THEN 
s= 0 TO 299 TG 


WRITELN? | | 
LTi ¢= 0 TO Y DO WRITECACCLTS & 10) 4+ LTLIde? 733 


FOR 
END 


TIME CHT 


gh Tids 


SORT COr 2999 ) 


TIME CHT 


HY 3= ¢ 


gL. TQ) 
(LT2 -— LT1) + 30) DIV 60; 


WAITEC?PRINT OUTPUT? >? 5 


a 


ae 


MOG 


117) MOD Bids 


REATILNCC > + 
IF C = ’¥* THEN 
FOR LT2 3= 0 TO 299 DO 
BEGIN 
WRITELN? 
FOR LT ¢= 0 TO F TO WRITECADCLTS & 10) 4+ LTLIs’? %33 
ENT s 


WRITELNs 
WRITELNCHTs ’ SECONDS“) 5 
INO, 


“ORBL AK) 


PROGRAM QUICKSORT? 
CONST M = 1003 
TYPE INDEX = 0,,2799% 
VAN LTeteleyk ¢ INDEX 

XeoWeHTesLTiesLY2 3 INTEGER? 

5S ¢ O.4.f> 

STACK 3? ARRAYCL..MI OF RECORD 

Lek 3 INDEX 
ENT 

A § ARRAY[O..29991 OF INTEGERS: 


i CHAR » 


‘ooe 


BEGIN 
FOR LTL ¢= 0 TO ¥ [0 
FOR LT2 t= 0 TO 299 [10 
BEGIN 
HT d= 
ALCHT 
E NII 


CLT2 *® 10) + LT1s 
g= CCCCLTS # 17) + CLT & 3S13)> MOD 117) MON Silos 


WRITEC “PRINT INFUT? &7)3 
READTLN CO > 3 
IF C = “¥% THEN 
FOR LT2 32 0 TO 299 00 
BEGIN 
WRI TEL § 
FOR LY? ?= O TO ¥ DO WRITECACCLTS *® 103 + LTide’ %) 
ENTS 


TIMECHTeLTi2: 


S t= 13 
STACKLAI.L ¢ 
STACKCLILR ¢ 
REPEAT 
L t= STACKESI.L3 
Ro t= STACKESI.RS 
S t= 5 - 43 
REPEAT 
Tots Lj 
Jor RS | 
X t= ALCL + R) DIY 233 
‘EPEAT 
WHILE ACI] < X DO LE f= 
WHILE X « ACJT TO o 3 
IF X “= J THEN 
BEGIN 


i 


1? 
2 GOODS 


i} 


o 


ENT 
UNTIL Df os Jy 
IF ~ < R THEN 
REGIN 
S$ c= 5S + 13 
STACK(ISI.L t= LT? 
STACKCSI.N d= 
ENT? 
Ro3= J 
UNTIL Lob R 
UNTIL S&S = Oy 
TIME CHT» LT2)3 
HT t= C¢C(LT2S — LTL>) + 360) DIV 603 


WRITEC PRINT OUTPUT? >? >>5 
REATILNCC? 3 
IF C = ’¥% THEN 
FOR LYTe@ 3= 0 TO 299 0 
BEGIN 
WRITELN? | 
FOR LTL g= 0 TO F TO WRITECACCLT2S *® 16) + LTLIs’ 733 
ENT 


WRITELN» 
WAITELN CHT» “ SECONDS % > 
ND. 


Ce GL» GE) 


PROGRAM HEAFSORT3 

TYPE INDEX = 1,..30003 

VAR Lek 3 INDEX: 
XeHTyk.TieLT2 ¢ INTEGERS 
C ot CHARS | 
A ? ARRAYL1..3000] OF INTEGER? 


FROCEDURE SIFT? 
LABEL 135 
VAR To: INQEX? 
4o3 INTEGERS 
GEGIN 
Io3= Ls 
J d= 2kKTS 
A 3= ACT» 
WHILE J <= KR DO 
BEGIN 
IF J «= R THEN 
TF ACIJI <= ACL + 14 THEN J oG= Jot 13 
IF K 3 ACUI THEN GOTO 133 
= ALIS 


END 
Toe AC ta te x 
ENG 


BEGIN 
FOR LTL ¢= oO TO F DO 
FOR LT2 ¢= G9 TO 297 TO 
BEGIN : 
HT 3= (LTS & 10) 4+ LTLs 
ACHY + 20 = CC¢CCLT2 #17) + CLTL & SiS)) MOD 117) MOD Sid: 
ENT 


WRITECCRPRINT INPUT? &7%)3 
READLN(C) 
IF CG = “Y¥% THEN 
FOR LYS 3= TO 299 0 
BEGIN 
WRITELN¢ 
FOR LTL t= 0 TO 9 DO WRITECACCLTS & 103 + LTL + dds’ 73 
ENT 3 


TIME CHT L T4193 


Lh $= (32000 DIV 2) + 13 
Ro s= 3000% 
WHILE LL = 1 DO 

BEGIN 


SIFT 
END? 
WHILE Roo 1 710 
BEGIN 
X t= ALL 
ACL] t= ALRI3 


ALRI 3= X3 
Ros Rom ds 
SIFT 

ENITis 


TIME CHT» LT2)5 
HT 3= CtCLT2 - LT1) + 30) DIV 603 


WRITEC’PRINT OUTPUT? > 793 
READLNCC > § 
IF C = ’Y¥’% THEN 
FOR LTS $= 0 TO 299 0 
BEGIN 
WRITELN? 
FOR LTL 3= 0 TO ? TO WRITECACCLT2 ® 160) 4+ LTL + lds’ “)s 
ENT» 


WRITELNS 
WRITELNCHT»’ SECONDS’) — 


MU. 


APPENDLX GO - Microcode Used for Timi 


iT 


é CNTER.MIC 
JIGIGISIOIOIOOGOIGOIOI OR IO IK sg 
’ MICRO CODE LOCATIONS 
SAGIOIGIOIO COC ICOR CICA IOK 
* MACRO MEMORY LOCATIONS 


LLASTMF = 16 
HLASTMP = 1 

LJITAB = 
MATAR = 


WLSEG = 22 
HSEG = I 


9 HORROR OK AOR AK OK OK KOR OK OK 
' MARK STACK OFFSET VARTABLES 


MSSTAT = O 
MSOYN = 2 
MSTPC = 16 
MSSEG = 4 
MSJTARB = 4 
MSSP = Le 
MSBASE = -2 


MOoOULTA = 12 


Loc 3000 
IMF Oy TROFF 
JME LNECODE 
ERROR?  JMF Oy TROFF 
JMP 2 CLKOFS 


INTRUF? JZBF REREAT 
LGL RPSWL 
MI GH» GL 
AMP .¢ 


LIME OF BIG 


POF CODE 
JMP OF BIG ? 
AMP OF BIG y 


JMP 2500 
JME 3504 


Shr “Sh 


REREAT Li 


DECOOQE? CL 


RATT? SOF 


mada Lisi. 


TW 
AL. 
ACEP 


O»TROFF 
O» TROFF 
Oy TROFF 


F»ePCHs RSYC 
120°FCL ’ 


L7SeRIRL 
ERROR 
304eRIRH 
CLNOFE 


LOoRIRH 
ERROR 
RPSWL» RIRH 
S010 


37469 5PL 
SPH 
SPH y SPL 


RESWL » GL 


CLEOFF 


RIRH 

GH» GL 
RPSL 
377:GH 
G2: RSRECL 


2ey GL 


7 REAH 
LléyRBAL 
RBAH » RBAL 
RPSWL » GL 


SLOCT 
GL» GL 


RSRCL » GL 
ly RSRCL 
29 REBAH 
Sy RBAL 


Or KRIST 
LO» RUSTH 
MACRO 


Ee LD MER 


2 
7 


76779 
FOP FS 
FOP F? 


INDEX JUMP 


TABLE 


ABOVE 


MI 

JMF 
MACROS AL 

My 


ROSTHs ROSTL 
©) 


~LO»ROSTHs RSV 


RYST » PC 


COMMON PROCEDURES SECTION 


ORPBIG?  JMF 


GETEIG? Ls 


BIGZ? LL 


ESMALL: LL 


SUE Ee RIWS 


PSHPLGS? LL 
RPSHTRUS W 


JMP 
EQUE? JME 


AZT 
AMP 


7 


’ 


WEL 


< 


AMP 
JZP 


ee 
oe 


BIG2*LRR 


Qe RTRH 


4eRO0STL 


RUSTL 
GHy GL 
RIRH 
O»GH 
29 GL 
ISMALL 


RUSTL 
GH» GL 
RIRH 
GL» GH 
1779 GH 
29 GL 


4h TRH 


SPH» SF 


Or ROST 


RIK» ROST 


Or RSRCL. 
SEH» SPL 
RPSWL »e RSRCL 
EXIT 


SUB: LRG 
FSHTRU 
FPSHFLS 


SUB s LAR 
PSHTRU 


ATI 


iLO S 3 


LAR ON 3 


MF PSHELS 


JMEF SUB» LAR 
S27 PSHTRU 

Be REAL 

ML. L2@eRBAL 
HZ8T PSHFLS 
OCR REAL» REAL 
AZERT PSHE LS 
AMF FPSHT RU 


JMP SUB» LAE 
JAT POE LS 
COF RBAL. 

NL. L2°RBAL 
JZET FSH TRU 
OCK REAL »y REAL 
JSZBT PSHTRU 
JMF FPSHFLS 


LOC S256 § MACRO 
AMP GETEBI Gs LR 


SL GreROST 
AL L2sR0STL 
CIE ROS TH 


RE W SPR» SPi. 
LGh RIRL 
Al Ge ROS T 

LW O»KSRKC 


W RUS THs RDS TL. 
CW RSROWsRSRCL 


JME EALT 
Loo 


CL L739 RIRL 
JZEF ERROR 
bile 17S*eRIRL 


Ch. 304 ,KTRH 
SZET NEXT 

CL. Sl4yRIRH 
ALE ERROR 

LAs 461 »RDSTH 
a 2Or RUST. 
Li L7?RSRCL 


id ROS THs ROSTL. 


3280 < 


OW RESWL y RSRCL. 

JMR NEXT 
GLARE = LL S64). eR0USTH 

EL. HOr RNS TL 

iG ey P CL 

Lbs fe PCH 


i ROSTHe ROS TL 
Ol PCLe PCs RSYo 


fale ee a al 


»ENT 


FONTINT «MIC 


3 SRK RS R: eK Fa ie Kx eo GE ik *3 eK OK * 3 Ke OK x x x x 


® MACK MENORY LOCATIONS 
I 
I" 


fad 
i 


LASTMP = 
LASTMP = 4 


LJTAR = 2G 
MITAB = 4] 


BR AOR HER AC AOR RAR AOR AOR OK 


* MARK STACK OFFSET VARIABLES 


Sua eegesen «5 
MSsTafr = a} 


ee 7 N mt 


& 
zz ah 


re ws 
MSS 


MOOLTA = 


PCC TE SSE CSSCCEL SS SSS Ce eS 8 


bee Bowe Bate OFOe Gane Core Gene BOOS BERS BED HEED SOEs CLOT MENE bOGe URES THE Bee wwew eons 


? CORE SECTION 


g WAGs GOOF Mave Orme Hone none o4EF EdES Oras mote SHEE Cane eoee tens owe more amen 


& 


Loo 30 


JMF 
WME 
a) M i 
JMF 


Or TROFF 
DECODE 
Oe TROFF 
CLAOFS 


Be HS A> 
ie Palas 
Tn 

i ea a a 
ae 
ie 
ad 


IRIN ORS 3 


> 


LOG 2004 


2a O— 
76000-76777 9 
PCBS RS 


27 
= ? 


LF > 


MICROINTERRUPT 


RESERVED 
TOF 


ORT ENTE 


BY TEC, 


64 


hg 


ARE OURS. 


FOINT. 


RERE ATES AL ~Sy FOL yRSVE ? eae MACHO TO SERVICE INTERRUPT, 
COE BOH # TECREI T FC SO SAME OFCODE WILL BE 
y REAL eae. 


HECODES Ch L7 SR IRL } CHECK OFCOUE TQ MAKE SURE ITS LEGIT. 
J2BF ERROR ; NOTE, HIGH ORDER BYTE DF OF IS IN 
; RIRL AND LOW BYTE 28 IN RIRH. 
ee 304yRIRH # QUICK CHECK FOR INTERPRETER FETCH OF 
JZBYT CLEOFF 


AL 20»RIRH 
JOBE ERROR 
MT RE SWL » RIRH >; USE LOWER 4 BITS OF OFCODE TO INDEX 
JF S760 ; MICRO JUME TABLE, 


“Sh 


CHECK OFCODES FOR RANGE 74760-76777 


LOC 37 SO > MICKO JUMP TABLE 


AME QECMOV ’ OF CODE 70709 
JME DECHOV 3 76771 
AMF QNECMOV 3 78762 
AMF O» TROFF 3 70783 
JMP CLP : 70784 
MP Ear 3 76785 
JMP Or TROFF 3 76766 
JMF O» TROP F ? PELE? 
AMF INCMOYV 3 76779 
whe INCMOY ? 24771 
JME TNCMOV § 6772 
JME O» TROP EF ; PE&PSS 
WME OP BIG ? 7OPTA 
JM O? TROFF 3 76975 


AP CHK 3 SOP LS 
JRF LALST 7GS7 7 


ont Se 


SLUTS ¢ SHORT LOAD CONSTANT INTEGER 
AL. “29 SPL » PUSH OFCODE ONTO STACK 
COR SEH 
v SEH» SPL y € MOY RO»-CSP) > 
Mb RESWL » ROS TL 


CINTRP3 $ CHECK FOR INTERRUPTS AND THEN FALL INTO INTERPRETER FETCH. 
$1 1é ; 
it 4oRIRHy RSYC 
ra Ié 
JME CLROFF 

EFETCH? ¢ INTERFRETER FETCH 

THIS IS SIMILAR TO THE BACK ROUTINE IN MACKOCODE, 

DIFFERENCES ARE? | 

1. XFRTBL CONTAINS BOTH MICRO AND MACRO ADDRES SES. 
MICRO ADDRESSES HAVE HIGH ORDER § BITS SET TO 1s 
2, REGISTER 0 IS NOT LOADED WITH THE OPCODE. 


SR SH Nb ae WES NWS Ae 


MACROS 


‘Se Se 


MLRORS 3 


Abe wane Ones anse eeee meee meee 


a 
g 
3 
a 
¥ 
¥ 
a 
¥ 
a 
y 
# 


LGk 
RIWL 
iL 
LL. 


ANF 


SLE 


see even tase meee eons 


RSRCL = | 
REAR = 2 
REAL = 3 
RIRH oc 4 
REIRL = & 


ROR 
GH» GL 
srRIRL 


@yRSRCL 
2eROSTL 


7» REAH 
LiéyRBAL 
REAHy REAL 
RPSWL eROSTL 


SLOCI 
ROSTLeROSTL 
RORCLy ROS TL 

1eRSRCL 
2» REAH 
3» REAL 


Oy ROST 


LOeRUSTH 
MACK 


RUSH s ROS TL 
G 


~LOeRDSTHsRSVC 
RUST s PC 


Pee Sees ener voee Orem S080 eee MEe cate SnEe CEES ever SEED Cede sees BEET RETE BED Bete BEEF Tete eree 


F=MACINE OF CODES 


173*eRIRL 
EPPS ON 


17S*eKIRL 


SO04eRITRH 
IFETCH 
SL49RIRH 
ERROR 


INTERNAL REGISTERS ARE INITIALIZED DURING THE COURSE OF 
TFETCH AND CINTRE YO THESE VALUES? 


¢ READ OF COUE 


? TEMPORARY ~ WHEN ZFRTBL IS MOVED TO 
? ADDRESS 4890 CHANGE TO LL Le RSRCL, 


1S XFRTBL. 


CEE 
EMPORARY - SEE NOTE ABOVE 


Re “oe 


kd 


SEE IF ITS MICKO OR MACKO ADDRESS, 


JUMP TO MICRO ROUTINE, 


ob te 


» BACK TO MACRO, 


toed vene sree 1000 ene none snes ore wees S200 


mELRONS LL J61»RO0STH 
Lt. 2Oe RUS TL. 
bets L7e RSRCL 


il RUSTHy RUST. 

OW RESWL » RSROL, 

JMF IFETCH 
CLAOFFE LL 361 »RDSTH 

Lk. 20 ROSTL 

LL. 29 FOL 


ik Yo POR 


W RUOSTH sy ROSTL 
Ob PCL ye POH ey RSYVC 


hohe L227FCL 


AL. MSUL Tay ROSTL 
CUB RYISTH 


LOL ROFL. 

Ald Ge RUST 

SW REAH » SF 

| SPH» SPL 

OW RISTHs ROSTL 


JME — CINTRE 


PACK 

LADS > LOAD GLOBAL ADTIRESS 
ivi PROBIGs LAK 
SLAW Ge kOST 


AL. MSUL TA» ROSTL 
Ci -ROSTH 


LOL RBAL 
AW Ge RIST 


Sh REAH » SF 


W SPH SPL 
Ob. RUSTHs ROS TL 


JMFPO |) GINTRP 


ae 
whe 
con 


# OR NOK 

ANG > AND 
RIWS SPH y SFL, 
TW Cy RUST 


i SPH» SPL 


TW 4 RSRO 
Ny RSAC» ROOST 
OW ROSTHyROSTL 


JME CINTRE 


3 HOOK KRK 


Loads ? LOAD CONSTANT WORD 
LGL RIRH 
ROW L GHy GL 
LG ey RDSTL 


RD GH» GL 
thy REA y SF 
IG 2eROSTH 


OW ROGSTH s RNSTL. 


AMP =» «-CINTRE 


guy 
FY HOEK # 


FUE: ; FALSE JUMP (NOTE, REQUIRES UJF RE PRESENT) 
RIWS SPH: SFL 
LGL. RIRH 
TEE Le RSROL 
SREF RSRCL y RSROL 
JCF 0 UJFSKE | 
KOWS GG 
JAP CINTRE 


LER 3 y UNCONDITIONAL JUMP 
LGu RIRH 

UMWIPSRPES RII GH» GL 

iG! 2eRSRCH 

JANET LONG 


Au RSRCH»G 
JME CINTRE 
LUNG Li Ley ROSTH 
Be Os SOyROSTL 
Fe ROSTH se ROOST. 
TW OyG 
Ab) RSROHs G 
Fe BH» GL 
TW Or, RSEC 
Sid RSEE »G 


JME CINTRE 


SUES ; COMMON PROCEDURE USED BY COMPARISONS 
RIW2 SPH» SF 
IW O»RIR 


SPH» SF 
TW Or» RUST 


SWF RIRy RDS T 
RFS 


pA 
SQUI$  #¢ INTEGER EQUAL COMPARE 
JMF | SUBS LR 
nay PSHTRU 


Piss: tle Or RSRCL 

TRUS W SPH » SFL, : 
Obi RP SWL y RORCL 
JPR CINTRE 


POOR EE 

NEQI3 ¢ INTEGER NOT EQUAL COMPARE 
JME SUB» LER 
JZF PSHTRU 
IMP FSHFLS 


# HORAK 
LEG 3 > INTEGER LESS THAN OR EQUAL COMPARE 
JM SUBy LAR 
a FPOHTRU 
CCF REAL 
Ni 12»RBAL 
AZT PSHFLS 
OCB RBAL +s REAL 
JZET MSOHFLES 
JME FSHTRU 


OK AGK 
GRTL? % INTEGER GREATER THAN COMPARE 
JME SUB» LRR 
AZT FSHFLS 


CCF REAL 

Ni Ley REAL 
JZET PSH TRU 
OCR REAL» REAL 
JZEBT PSH TRU 
MF POHFLS 


SkGOIOK 
STL4 $ STORE LOCAL 
JME PROBIGsLAR 


SLW Gre RDST 
AL L29 RUST. 
Clk RUSTH 


RIW2 SPH» SPL 
LGL. RIRL 
Aly Gy RDST 

TW Ory KSRC 


i ROSTHy ROSTL 
Cs) RSRCH »y RSRCL. 


JME CINTRE 


ade gle ds oly 
Rees aes 
aati eer eee ae ora 
RRS > CASE TABLE 


RU id SPH» SPL. 
EG RIRH 
ICWL Get 


Th Gy ROS T 


NL 4749 GL 
RIES GH»e GL 
TW Gy RSRC 


RIMS GhHs GL 

Cw RSEC»yRIST 
CCF RIRL 

TW Or RBA 


NL. L2yRIRL 
JZBT CONTI 
ock RIRL »RIRL 
JZBF XJIPEXIT 


CONTLY  CWF RIGST » RBA 
Cor RIRL 
NL. L2,RIRL 
JZBT CONT? 


COMT 2 


NAIPEXTT 


ee ae ale abe 
axe 


LOM s 


LOMO 3 


c 
> 


IRL» RERL 
Xx wd | ae x r oi 


9G 


RORC » REST 
ROST » RUST 


ROST »G 


GH» GL. 
Oy RIST 


ROST »G 


CINTRF 


§ LOAD MULTIPLE 


BG 
Mid 
Tu 


Fe 
tid 
Leb. 

th 

JZET 


My 
Sl 
Eb 
RY 
RIW2 
Cur 
LW 


WHEW 
Old 


Jee 


Mi 
TCWe 


SPH» SPL. 
RIRH 
SP y RIST 
Oo RSRE 


GH » GL. 

9G 

Oy RBAH 
Se REAL 
LOMEX TT 
ReAL » RST 
REAL » ROS T 
ROOST » ROS T 
ROSTy» REA 
4 

Je R IRAP RSV 
Ié 


RSRCL 


ROSTHsROISTL 
RIRHy RIRL 


LOUMLOF 


RBA» SF 
GeG 


JF CINTRE 


OOK 


RNE ; RETURN FROM NORMAL PROCEQURE 
L Gt. RIRL 
MW Gr RSRE 
AL. NSSF eRSRCL 
CLE RSROH 


Fe RORCH» RSRCL 
LG RES WL 
IW O96 


Lk: RIRH 
RR GHy GL. 
DW. Get 

bike Oy REAH 
Tks 2eRBAL 
JZET NOP ROC 


Ald REA ROR 
Ald RBA RSRO 


Li. RESWL 
LL. 29K BAH 


RAEEOE Sp RSRCHs RSAC 
Sid | REGHe RSRE 
Sid REAM» G 
thi Ov» ROOST 


WW GH» GL 
OW RUSTHs ROSTL 


TBI REAL» REAL 
AZBF RAE LOE 


oe 
eons 
i 
ae 

haat o* 
po 
H 


NOPROC RIRL 

Si té 

Mi Gy RSRC+RSVC 
RE té 


RIiW2  RSRCH» RSRCL + LASTHP 
LL. LLASTMP sROSTL 

Li HLASTMFE s ROUSTH 

Th Or 


WIWe ROSTHe ROS TL y LASTMP 
Cd GH» GL. 


Avs] 2800 Hnee Bees CREE FORE GLDL SOEs Lene HESS F800 Hoes FESS DOSE SORE OOEs MEOE Bese Dues ANE eEEE SEEE OESs Seen erry Ones POEE Bree Bete BF 


* 
¥ 


9 THE FOLLOWING 
PD ACH EAE 


3 ANY 


# GETE 


OOREIGS 


PRCGIGS 


RLW2 
LGi. 

IW 

WiWe 


Oh 


RE WS 
Pi 
TW 


WW 
Old 


re 
LOL. 
LW 


MF 


RSRCHe RORCL 
RE SS WL. 
Oy Ee 
ROSGTH es ROS TL 


REAH » REAL 


Sr 


ROACH + RSACL. 
Gy 
yREA 


0 


RUSTHs RISTL 
EAH» REAL 
RSRCH» RSRCL 
RIRH 

OrG 


CINTRE 


“Be 


ee qnee ore aces an. 


ad bane ates sete ance ates sree pees 


COMMON PROCEDURES SECTION 
ARE COMMON FROCENURES THAT 


IG ~ PERFORMS THE SAME FUNCTION AS 


THE VALUE RETURNED IS 


OR COME + 


ASSUMES RIRWH CONTAINS 


37 fm 


te FOINT FOR GETBIG 


FROBIGs LAER 
ROVC 


‘Y POINT FOR GETEIG 


RIRH 
GH» GL 
RE Sib, 
0» GH 
29 Gh 


ISMALL 


RIRH 
Gh» GL. 
RE SUL 
GL» GH 
17?» GH 


ALWAYS IN 
A 4. 


Ort Ls CODE ay 


EROCEDURE 


wnne seee cece 


CAN BE USED BY 


REGISTER 


FROM MACKO 


~ CALLET 


THE GETBIG MACRO EXCEFT 


0. 


CODE. 


TSMALL 


TACO 


TLOOF 


LALST 3 


LLOGR 3 


Ik Ze GL 


RES 

g OPCODE 76770-74772 

? FERFORMS THE OFERATION 
9 1$3 MOV (CREdt, CRO) + 


SS MEP “EP SEE “Se apy “Be 


SOB KRAy Lt 
RA IS THE LOW ORDER DIGIT OF THE OFCDOE AND RE AND RC 
ARE THE LOW ORDER 2 BITS OF THE LOW AND HIGH ORDER BYTES 
RESPECTIVILY OF THE WORD FOLLOWING THE OFCODE. NOTE» 
RA CAN ONLY BE REGISTERS Ovi» OR 2 AND THE REGESTER SHOULD 
CONTAIN A NUMBER > 0 TO GFPERATE AS PROBABLY INTENDED 
(I.E. IT WILL BEHAVE LIKE A SOB} 


PCH y POL 


TW Oy RBA 


StI Lé 
LL REAL yRSVE 


CE Ié 


CiW2 Gy GL 


LOL RIRH 
QWIF 2G 
Tid Or RUST 


LoL REAH 
WIW? GH» GL 
QW ROSTHs ROSTL. 


ALF TLOOF 


TCwe POyPOs RSYC , XR NOTE RSVCO HERE 


OF COLE 7&7??? 
FERFORMS THE FUNCTION 

1$3 MOV BRivkid 

| 50 ROs1d | 
THE INITIAL ADIIRESS MUST BE IN REGISTER 1 AND THE COUNT 
IN REGISTER G. THE COUNT MUST BE IN THE RANGE 14.127 TO 
WORN FROFERLY, 


LL Ley RSRCL 


Sl Ié& 
Gt RSRCLy RSYC 


J : Té 


Gkly GL. 
LGL RESWL 


ieee 
TECMOVW 


DLO 3 


TEL Gly GL 


Cok RSRCL 


-O»G 


dar LLOOF 


NOE RSYC 
NOP 3 kk TEMPORARY 


MBb SER SMe Se MR MH SP “ie > 


OFCOME 74760-76742 
PERFORMS THE OFERATION: 
$13 MOV ~CRB) ey ~CRO) 
SOR RA? 1 

RA IS THE LOW ORDER DIGIT OF THE OFCODE AND RE AND RC ARE 
THE LOW ORDER 3 BITS OF THE LOW AND HIGH ORDER BYTES 
RESPECTIVELY OF THE WORT FOLLOWING THE OFCODE. NOTE» RA 
CAN ONLY BE REGISTERS G21 OR 2 AND THE REGISTER SHOULT 
CONTAIN A NUMBER > 0 (I,8. IT WILL BEHAVE LIKE A SOB} 

PCH s PCL 

Or» RBA 


2» RSRCH 


Té 


LiL. REAL » RSV 


Ié 


RERCH» G 
GH» GL 


Ligh. RIRH 
DuULE GG 


Or RkOST 


L.Gh. REALM 


RSRCH yO 
GH» GL 
RUSTHy ROSTL 


SLE DLOOP 


TOW? POs PCy RSYVC 


NOF PXAXETEMPORARY ~ FIND NON JUME 


MACKO F-MACHINE OFS 


THES SECTION CONTAINS THOSE F-MACHINE OFS THAT HAVE THETR OWN 
QOPCODE T.&. THEIR MICKO ADDRESS IS NOT OBTAINED FROM THE XFRTSBL. 


HS ¢ CHECK AGAINST SUBRANGE BOUNDS 
yOF CODE 7é?77é 
PMACRO CODE SHOULD LOOK LIKE: 
? »WORD P&P FS 
3 WORD 7&7 O48 
¢ TRAP INVES 


GET MAXIMUM RANGE 
THIS INSURES THAT BOTH THE INUNIX 
AND NORMAL CINTRF EXIT ROUTINES WORK RIGHT 


RIW2 SPH» SPL 


ECW? POs RC 


Sh “GY “ate 


TW O»RSKC 


GET MINIMUM RANGE 


Sh 


RIWS SFHs SPL. 
IW Ory RUST 


G} 
iT} 
— 


RK SPH e SPL SCALAR 


TW Or RIK 


CW RRs RSRO + CHECK MAAIMUM RANGE 
MF LOSTHNs LAR 
CW ROSTy RIB ¢ CHECN MINIMUM RANGE 
JMP LOSTHN»s LAR 
JME CINTRE 
TRA? RFS 
LOSTHN? COP REAL ? IF LESS THAN -> RETURN 
NL. L2?RBAL § TO MACKO CODE FOR TRAP 


JZBT RTRN 
Oc REAL » REAL 

JZBT RT RN 

NOF RSYC 3 RANGE ERROR 8% NOTE RSYC 


irs r OFCOODE 76769 
y CALL INTERMEDIATE PROC - SEARCH FOR PARENT 


LL. Le RIRH 9(TELETE THIS ONCE REAL OF CODE IS IN USE> 
Lit. RIRH a 4 


Re GH GL ; GET LEX LEVEL OF PROCEDURE BEING CALLED 
LL. RIRL 
Lk Oy R BAH 


Ir ZERO OR ~1 RETURN TO MACRO CODE FOR 
JUMP YO THE LAST PART OF CBP 


JZET UIT 
JINBF CONT 


Gr Me 


ICW2 POs PC sRSVC 
Mu BeROST 


ives 
CONT 


Soh o> 


LOO 


GOTT 


> 
+ 


SI 
LL. 
RI 


CE 
JANET 


Fe 


TW 


IMF 


Sli 


7 
hy 


HO 


? CALL LOCAL 


4eROSTL 


RUSTH 


ROUSTH sy ROS TL 


Oe RSG 


Is 
Se RIRH ey RSVC 


Lé 


RSECHy RSROL 
RIRH» ROOST 
Oy EBAL 


RBAH » REAL 
GOTIT 


RESTHs ROSTL 
Or RUST 


LOOF 


RIRH s ROST 
ROS THs ROS TL 


Oy RSRE 


GH» GL» RSYC 


RSRCH» RSRCL 


RSVC 


LSEGsROSTL 
HSEG »ROSTH 
RE StL 
ROSTHs ROSTL 
SP 2G 
ey RBAH 
REAH 
O»G 


RIRH 

GHs GL 
Ly RSRCL. 
RSRCL 
O+ GH 

sy Gh 


G?G 


SEARCH GOWN DYNAMIC 


LINK FOR PARENT 


GET JTAB FROM MSCW 


3 CHECK FOR INTERRUPTS 


y GET LEX LEVEL OF THE PROCEDURE 


y COMPARE LEX LEVELS 
IF ITS LOWER WE’VE FOUND THE PARENT 
y TF NOT LINK QOWN TO NEXT FROCEDURE 
y ON THE OYNAMIC STACK 


y KEEF LOOKING FOR FARENT 


9 FUT LEX LINK ON THE STACK 


? STACK OVERFPLW - RETURN TO MACRO 


PROCE TURE 


MOV SFr kG 


Sy 


USES R2 INSTEAD OF OLOSEG 
MOV SEQ?OLTISEG 


“=> SED 


GETBYTE Ki 


eh 


ASL RI 


“Se 


WIW2 
OW 


Li 


WIWe 
OW 


sh, 8 ie 
ligla 


LSEGyRESTL 
HSEG»RUSTH 


ROSTHe ROS TL. 
O» RUST 


RUST yo 


GH» GL 
377 ROSTH 


NATASZ s ROUSTL 


OFRSRC 


RSRO»G 


GrROST 
ROSTHyRUSTL 
YO» REAL 
SPs RUST 
OrRSRC 


Ié 
RSAC» ROST 
Lé 


RPSWL ey REAL 
RIRL 

O»RSRC 
RUST» RSRC 


CLPE RE 
CLRPERR 
~L4eROSTL 
ROSTH 
RUST» RIR 


ROISTHs ROSTL 
GHeGh 


LITABYRSRCL 


ROSTHs ROSTL 

GH» Gh 

HJITABs RSRCOH 

RSRCOHs RSRECL 
REAH 
L»yRSRCL 

O» RBA 


ROSTHe ROSTL 


¥ 


a> 


* 
bd 


AUG SEGeR1L 


SUB BRIivR1 


SUS TATASZ(OR1) » SF 


o 


? 


CME SF y NF 
BLOS CLEERR 


REVERSE PUSH ORDER 


MOV MP y~ (SF) 


MOY JTABs»s- CSP) 


OW RBA» REAL 


Lie 4» RSRCH 
WIWe ROSTHs ROSTL 
OW GH» GL. 


MOY OLOSEGs-¢SP3 
(R2 USED INSTEAD OF OLDSEG) 


Se aD 


Lh. RORCH 

LCwWd Ge hEA 

W ROSTHy ROSTL y MOV TFOr-(SF> 
Did RBA y REAL 


LG. RSRCL 
Gl Lé 
MW Gr» RUST 
RI Ié 


ALL PARMS 2» ROSTL 

CoE ROS TH 

RR ROSTHsROSTL 

LG RESWL ¢ MOY PARMSZCORDT 3s TRC 
TW Ory RUST 3 (TFC NOT USED) 


AZET - CLRFIN y BEG 24 


SRA ROSTHs RDSTH P ASA TPO 
Pid RIRs RSRC 3; MOV SPeMP CMF NOT USED) 


AL. MSDL TAS» RSACL 
CLG RSRCH ¢ ALT EMSTL TAS » MP 


PLPLOP? RIWS GSH» GL 
{iw dF ROS Ty RUST 
TW Or RRA 
SI Lé 
Lor OG» RPSL » SET 2 FLAG TO FALSE 
RI Lo 3 
WIW2 RSORCHy RSACL 
OW RBAMs RBAL 


JZF .CLPLOP 


CLEP ON: tl RIK» SF 
Lt. wr RIRL 
Lt 4/RIRH 


Lh RIRL 
Mul SFG , MOY SOF y MF 


Lek. LLASTMP yROSTL 

be HLASTMPE » ROSTH 

WT RUSTHs ROS TL ? MOV MPsLASTMP 
(b) Ge GL 


Mid Gry RSRE 
AL NSSF yRSACL 


CLE RSRCH 3 MOV ROyMSSECMED 


LGL RE SWL 
W RSRCH»y RSACL 
OW GH» GL 


iW ROSTH» ROSTL » MOV RisJTAG 
Gly GHy»y GL 


Ml GreROST y MOV RisIFC 
AL. ENTRICeROSTL 
CoB ROSTH  § ADD £ENTRICe TPC 


iN ROSTHsROSTL 
Lik ROIRH 

Pilg ROST »G 

TW Os RUST 


i ' SUB CIFCs IFC 
LCi? PCs PC ? SKIF OVER STACK OVERFLW ERROR BR 


2ENT 


APPENDIX Ho - HACKO-11 Code Used for timing 


y F-code Timer 
? O2FRAKK INSERT INTO MAING AT BOTTOH OF TRANSFER TABLE 


»ENTIUR 

+ TRF NetdeSeSs4e Se Ge Pol Oetleyieriseslavsy iss iGei ee 2o> 
+WORT SLIOS+AxIN- doo 

a ENIIR 

» TRE NeoiOvisyser Sede Se Gy 7 

WORT SINUS+<1 ORNS 

o ENGR 

»ANLIST ME 


»BLAW SX. MAAUNT HIS > UNIT TABLE IN TOTRAF 


“A 


y O4e S808 Cees See Come CENA OLE SREE COUR AHCS SEEN GEES COCR FEE HERS ODE OEE OEE BEES BOOS 40S OOOe CEES SECS CEES GeEe COE CROT THEE S050 BEDE SEED OPES SEES Dine BSED SESE OBIE BERS HaGe SESE BEES Sen Beee 


INDEX? .WORT O 
*WORD 75704 > GO HERE TO KESTART OFS THAT ARE INTERRUPTED 


ENTRY? «WORD 735714 » MAIN ENTRY FOINT 4 CHANGE TO NOF YO START COUNT 
MOV INDEX 2 RG 


TESTS RG 
BRL TOSLOCT 
BICE $LOO » RO 


SL. RO 
ASL KO 
ASL. KO 


3 CHANGE INDEX FROM OF CORE (LEFT SHIFTED 
ADD OPCNTS 2 RC 


O  » SHIFTED ONE: TO ACTUAL INDEX FOR OFCNTS 


UPDATES Aq #49 RO 
MOV CRO) +9 WEN 
MOV CRO) 2 WER } COUNT NUMBER OF TIMES EXECUTED 
MOV HALLER » RA 
FADO = Rl 
MOV WZ, (RO) 
MOV WIL» (ROD 


TSTE COR 
BMI OVRF LW 
TST BPR 
BEQ ra ey) 


TEST FOR ERROR CONDITIONS 


Ltd 


MOV ~CRO)»-CSF) 
MOV ~CRO} »- CSP) 
MOV BPR y- (SPD 


MOV TPCyFRIPC 


TST (SF) 
EMI NTIME 


aS MOY FRY TEC 


JMP BCR4)+ > COUNT NUMBER OF MICROSECONDS 
xe WORT SIR: ¥ 
3 MOY LAS TMP » MF 

MOV $RBACK» BK 

MOV STRBAS» BASE 

MOV PRIFCs IFC 


FADO SF 


MOV CSP +e CRO) + 
MOV CSP dy CRG) 


SHIPS WORT 7U714 > START TIMER AND EXECUTE OF 


DYVEBRPFLAWE HALT 
»WORT Faris 

NYTIMES BIC #LOGOGGs (SF3 
AT iy (SF 3 
RMI NERROR 
MOV #Ay TPC 

! JME @CR43+ 
rs »AWORT Gine B 
he PALE SF 


MOV 77777 9 (SP 3 
JME W 


NERROR: HALT 

»*WORT 75714 
20GRES HALT 

WORD 7O714 


QOSLUCT? MOV OP L27 o RO 
JMF 0 UPDATE 


# QUTFUT ROUTINE TO BLOCK 40 QF BLANK FLOFFY ON #5 
— MOV #i9- CSF 3 
MOV FOP L227 9 ~ CSF 3 
MOV $20109- CPD 
MOV FAD ys —- COP) 


CLR ~(SP 2 
Jk RisSYTORG 
*+WORT O 


HALT 


y KETNITIALIZE OFCNTS TABLES 


INITS 


TABLOC? 
TABCNT? 


ORONTS ¢ 


ACER ¢ 
Wi: 
Ig U8 3 
(ok = 


BPR: 


If SOTe tate ween see eras 


CME TEL 3 


MOY © #£OP L279 TABLOC 
MOV #10047 TABCNT 
CLR @TABLOC 

ALT #2 TABLOC 

HEC TABCNT 

BNE TRIE 

HALT 

«WORT 


-4WORT 


sFPLT2 O99 


»eREPT 200 
sFLT2 O99 
o ENDM 


aFLT2 


i 
»AWORT O 
WORDT O 


WORT G 

WORT REALCHE 
o WORT STROCMPF 
WORT BOOLCMP 
»WORT FOWROMP 


AND RESET COUNTER 


MACKO 


ROUT IME 


¥ Standard Frocecdure Timer 


WOR KAOK TNSERT INTO MATNOF 


ee eo 


ee ee ee ee oe 
MAIN INTERPRETER LOOF 
60 HERE POR OF ‘CODE 


Se Se MES 
Ty 
7 
“te odo 
ci} 
— 
tre 
fT} 
~“t 
Seed 
eo 
—d 
Tt 


Miwteie MY ROy- CSP ? PUSH THE LIT VALUE AND FALL INTOQ NEXT OF 
BACKS MOV #LOO7 2 1 FO420 ? STOR REAL TIME CLOCK 

CMF Ely BRRSW 

BER SKIP IT 

MOV tls BPRSW 

MOV 170422 9 SAVERPR 
SRIFITS GETNEXT > GET NEXT INSTRUCTION BYTE 

BRL SLUCI > TF FOSITIVE THEN A SHORT LOCT 

ASL RO > DOUBLE FOR WORD INDEXING 

MOV AFRTBL CRO) 9 FC 9 TRANSFER CONTROL TO FPROFER OF 


ABL3 §% INTEGER ABSOLUTE VALUE 
TST @SF 
BRL is 


» GOQIOKA TNSERT INTO FPROCOPF 


MOV LAS THF » MF 
26s MOV MF e Kd 

TST CR1)+ 

MOV (RL )+9MPF 

MOV © CRLi+e ITA 

MOV C(R1lI+9S5EG6 

MOV (RL +t/ TPC 

MOV MF» LASTMP 

MOV RO» SF 

MORE 


RESTORE OLT MP VALUE 

NOW RESTORE STATE FROM MSCW 
CHUCK STAT LINK 

QYNAMIC LINK 


Ky EY Sh Be 


NOW BACK IN STATE AT CALL TIME 


Se 


CSPy y CALL STANDARD PROCEDURE 


Rf ttPP 2908 beee anes cone wens ease SoBe ease te¥e EEO TEES SOD meme Srne Onem Shee tans cree erow 
r 


JMF SREONT 


SREONT 3 


OLURG yk 
LORI 

~CR1L)»- 
“CRI }s~ 


MOV 
ANT 
MOV 
MOV 


MOY 
MOV 
FADD 
MOV 
MOY 


SE 


TSTE CSR 


1 


(SF) ; 
(SF) 


COUNT EXECUTIONS 


AQNE+29~- CSF) 
AONE »~CSF3 


(SF oty (RL 9+ 
CSPo+y CR1) 


EMI OVER LW $ CHECK FOR TIMING ERRORS 
TST SAVERPER 

BEG ZTIME 

MOV DLOROy RL 

ALT $4 eR1 

MOV ~CRLde- CSP) 

MOV ~CRL}9-CSP2 ? COUNT MICROSECONDS 
MOV SAVEBRR »~ CSF > 

MOV RO» SAVER: 

MOM IPC» SAVERS 

Tot CSP) 3 


GMI NTIME 
MOY 
JME 
»>WORL 
MOY 
MOV 
MOY 
MOV 
MOV 
MOV 
FALT 
MOV 
MOV 


#0, TPC 
@CRA)+ 
SIRE 


SAVER4» 
SF 


GETNEXT - 

ASL. RO 
MOV 
ASL 
ASL. 
ANT 
MOV 
MOV 


OL TRG 
COLORS 


#CSFCNT 
#0» BF RSW 
#ON, CSR 


CHECK FOR NEGATIVE TIMES 


LASTMP » MP 
OLIROs RK 
SAVERO s RO 
EEACK » BR 
STRBAS» BASE 


1 


IFC 


CSPo+2 CRI D4 
(SP) +e CR) 


RO» OLURG 


Sr OLERO 


§ TURN TIMER ON 


MOV CSP TEL ORG) PC 


SAVEBRPA? WORT O 
BREESW2 »WORT 1 


OVRFELWE HALT 

ZTIME} HALT 

NTEME3 BIC #100000» (SF) 
MOV #UXy TPC 
JMF @CR4)+ 

nee WORD $IReEX 

EXS FALL SF 
MOV EP PIF 7 e- (SP). 


IMF C 


QLORO? WORT 0 

BAVERO3 .«WORD © 

2SFCNTS: «REPT AO 
eFLTS O9G 
2ENDM 

AONE 3 ee on eae 

DAVERA? .WORD G 
ON = 1? 


COR = L7O420 
BER = 170422 


* QUTFUT ROUTINE TO BLOCK 40 OF BLANK FLOPY ON ¢ 


MOV ES" ( SFY 

MOV TCSPONTS 9 - CSF) 
MOV #IOOe CSF 3 

MOV #409~CSF) 

CLE +A SF) 

JSR RirSYIORQ 
»WORT O 


ry 
ice! + 
* 
y Seer O06e C608 LOS BHD SED RAE OED Ree OHOd HHER OOD EOFS PIEE BEER DEED BOSS CEES SHOU ETET DEY BEES GLEE ROLE BALD DELS CEs GHEE COTS OOEr SEED BLES BELG WEte GHEE EIDE See Cree 


LOC § ITO CHECK 
TST @#TORSLT 
BEQ 1% 


APPEHDOTX Lo o- Microcode Listins 


8 UNTERE.MIEC FINAL MICROCODE LISTING 


SOOO AOR RO ROK ACIOK AOR KOK 


MACKO 


Lag TMF 
HLaAS TMF 


LITAB = 
MwJTARB = 


Loki = 
HSEG = 


MEMORY LOCATIONS 


= 16 
1 


ave 
pred 


0 


bm To 


DARK AR OOK SR OK ROKK OK ORR ROKK 


’ MARK STACK OFFSET VARTABLES 


MSSTAT 
MBOYN 
MS LPC 
MSSEG 
MSITAB 
MSSr = 
MERASE 
MSULTA 


a 


OHO NCR AS CEO SE OK AOI AR OS FE OE AGO OR 


> WTA 


ENTRIC 
LATASZ 
PARMSEZ 


0 


anes 


FFSETS 


oe 
Ap: nree: Seed ence ited ates (eree' ness elt seem ones Sine’ ona ates, ute) cee ice seek etee: ashe ares) Shes cies’ soba sees, oes (sees! eneh eene'sees: sone; anne! ones’ enn, nce. cen lenis cams 


5 


ISR & 


REREAD 


CORE SECTION 


LOC 3000 


AMF O» TROFF 
JME DECOQE 
ail | Oy TROPF 
AMF Oy TROFF 


LOC 3004 
AL. “29 PCL sRSYVC 
ORES: PCH 


Mt Sh “Be ate 


“BE Me NES TY 


OFCODES 220-227» RESERVED BY DEC. 
OFCOBES 74000-74777 s TOF 64 ARE QURS, 
MICRO FOWER UP. 

OF CODES 75040-75777» RESERVED BY DEC. 


MICKOINTERRUFT ABORT ENTRY FOINT. 
RETURN TO MACRO TO SERVICE INTERRUPT, 
NECKEMENT FC SO SAME OFCODE WILL BE 
READ AGAIN, 


DECOOE 3 


“SLE 2 


LMT RE 3 


FETCH? 


§ SHORT 
FL. 

CIs 

bi 

Cid 

> CHECK 
SI 

Lb 

RI 


THIS 


“Se Wh se wp 


Me MT NB HE ny MP Eh tp 


> 3760 


INTERPRETER FETCH 
IS SIMILAR 
DIFFERENCES 

1. 


INTERNAL REGISTERS ARE INITIALIZED 
LTFETCH ANT 


175 /RIRL 
ERROR 


CHECK OFCODE TO MAKE SURE ITS LEGIT. 
NOTE» HIGH ORDER BYTE OF OF IS IN 
RIRL AND LOW BYTE IS IN RIRH. 

BUICK CHECK FOR INTERFRETER FETCH OF 
76704 FOR EXTRA SPEED. 

CHECK DPCODES FOR RANGE 76740-76777 


304yRIRH 
IFETCH 

20» RIRH 
ERRORS 
RPSWLs RIRH 
3740 


"EP Me Me Oe RR 


USE LOWER 4 OF OFCOTE TO INDEX 


MICRO JURF 


BITS 
TABLE» 


‘> Ze 


MICRO JUMP 
OF CODE 


TABLE 
76769 
76771 
70762 
76763 
76744 
7O74&S 
76766 
76787 
76770 
7O771 
fO772 
78773 
46774 
7O775 
7Ea77E 


seg a eyiay o 
S&S??? 


Se 


QECMOV 
HECMOYV 
QECMOYV 
O; TROFF 
CLE 

CIF 
O»yTROFF 
Oy TROFF 
INCMOV 
INCMOYV 
INCMOV 
O» TROFF 
QREIG 
GO» TROFF 
CHK 
LAELST 


“a> 


“Se Oh Be We "SP SEH "Br Mb We “th WR BS ttt 


Mee ME 


LOAD CONSTANT INTEGER 

nee Sh, y FUSH OF CODE ONTO 
SPH 
SPH» SPL ft 
RESWL» ROSTL 


STACK 


FOR INTERRUPTS THEN FALL INTO INTERPRETER FETCH. 
Té 

4yxRI Re RSYVC 

Té 


AND 


TG THE BACK ROUTINE IN MACROCODE. 
ARE 3 
AFRTBL CONTAINS 


MICKO ADDMESSES 


MICRO AND MACRO ADDRESSES, 
HIGH ORDER S BRITS SET TO iS, 


BOTH 
HAVE 


2#- REGISTER O ITS NOT LOADED WITH THE OFCOKE, 


DURING THE COURSE OF 
CINTRE TO THESE VALUES? 
RSRCL = 4 
REAH = 2 
REAL = 3 


MACRO: 


AL. 
Mu 


RIRH = 4 


RIRL = 5 
RIRH 

GH» GL 

Se RIRL 

6y RBRCL 
2eRDSTL 
SLOCI 
ROSTL» ROSTL 
RSRCL » RISTL 


Le RSRCL 
2» RBAH 


O»sRUST 


LO,RUSTH 
MACRO 


ROUSTHsROSTL 
©) ; 


~LO»yROSTHs RSVC 


RUST s EC 


“Ee 


Se 


Be Bb 


“at 


READ OP CODE 


TEMPORARY - WHEN AFRTBL IS MOVED TO 
ADDRESS 400 CHANGE TO LL dsRSKCL, 


ACCESS XFRYTBL. 


TEMPORARY - SEE NOTE ABOVE 


SEE IF ITS MICRO OR MACRO AUDRESS. 


JUMP TO MICRO ROUTINE. 


BACK TO MACRO, 


Pte ween Ener emer wore Mtoe OFee Fone Aree SFED SEES SEED DORE SeOt OUST BYRD OEE EdeS SETS SEGA DESL teen sreb See Stee sons eEee sees SEEe Deee eeee BtEE Tews SEtt weer 


P-MACINE OF CODES 


§ LOAD GLOBAL WORT 


AME 
SL id 
AL. 
Cie 


LOL 
Aly 
ke 
Shi 
TW 
uJ 
Cb 


JM 


PRCT Gs LRA 
Ge RUST 


MSOLTA»yROSTL 


RISTH 


RBAL 
G»eRUST 


ROSTHs RUSTE 


REAH » SF 


Or kIST 


SPH» SFL 
RUSTHsROUSTL 


CINTRE 


9K AR AOK 


SROs > STORE GLOBAL WORD 
PME PROT Gs LAR 
Sh Gry RUST 


IW SPH» SFL 
AL MSULTA»ROSTL 
Cie ROS TH 
LOL REAL 
TW O»yRSRE 
Pld Ge RUST 


iW RESTHs ROSTL 
OW RSRCH» RSROL 


JME CINTRE 


LALA Ss y LOAD LOCAL ALTRESS 
AMF PRCETGsLRR 
SLW G»ROST 


AL MSTULYTAsROSTL 
Cte ROS TH 


LOL. RIRL 

Al Gr ROOST 

Sl RBAH » SF 

I SPH SFL 

OW ROSTHs ROSTL 


JME CINTRE 


AUS > LOAD GLOBAL ADDRESS 
AMP FRCBIGs LER 
os Ge kOST 


Fl. MSQLTAsRUSTL 
Ci ROSTH 


LGL RBAL 
Ald Gre ROOST 


SW RBAH » SF 


W SPH y SFL 


Thy ROSTHs ROOST 
Ji CINTRE 


BORN Kk 


ryMdbe 5 ANE 
RIWe SPH» SPL 
Li O»y RDS T 


RK SPH» SPL 
tw 4y RSAC 


My RSRC » ROST 
OW RUSTHsROSTL 


AMP CINTRE 


BK AOR KOK 


ICTs § LOAD CONSTANT WORD 
LGL RIRH 
ROW GH» GL 
Ik Se ROSTL 


ROW GH» GL 
old REAH » SF 
ik 2eROSTH 


bd SF SPL 
Od RUSTHs REST 


AMP CINTRE 


3 AOIIOR 


are gar y FALSE JUMF (NOTE, REQUIRES UF BE PRESENT) 

RIWS SPHe SPL 

LGL RIRH 

IRF Le RSRCL 

SHEF RSRCL » RSRCL 

ACK UJPSRE 

TCwWt Geb 

JME CINTRE 


ROR OK 


LJP 3 ? UNCONDITIONAL JUMP 
LOL. RIRH 

WUPSRP SS RIWL GH y GL. 
TBF 22 RSRCH 


INET LONG 

Al RSECH? G 

MP CINTRE 
LONG 3 Lt ly ROSTH 

iE. . 2OvRUSTL 

i ROSTH: ROSTL 

Lo Orb 

Als RSKRCH si 

FR GH» GL 

Th Oy RSRC 

SW RSRC»G 

JMP CINTRE 


SUBS ? COMMON PROCEDURE USED BY COMPARISONS 
RIW2 SF» SF 
TW Ore RTE 


FR SPH» SF 
TW O»sROUST 


SWF RIRy RUST 
RES 


3 AOKI 
EIQ 3 > INTEGER EQUAL COMPARE 
JME SUBy»LRR 
che - PSHTRU 


PGHFLS? Lb Ors RSRCL 
“SHTRUG W SF Hy SPL 
CW RESWL y RSRCL 
ME CINTRE 


BOR AGK 

NEGLI y INTEGER NOT EQUAL COMPARE 
JME SUB» LAR 
JZF FSHTRU 
ME PSHFLS 


PCAC HER 
LEG 3 ¥ INTEGER LESS THAN OR EQUAL COMPARE 
Jt SUB, LAR 
ee FPSHTRU 
CCF REAL 
NL. L2rRRAL 
JZBT FPSHFLS 
OCR REAL » REAL 
JZEBT PSHFLS 
JMF FSHTRU 


DK RK 
RTE: * INTEGER GREATER THAN COMPARE 
MP SUB» LARK 


ORK 


we abe ote abe 
o REX 


APG 


LONTIS 


427 
COF 
NL 
JZET 
OCG 
JZET 


of PF 


§ STORE 
JME 


SL 
AL. 
CIE 


RIWe 
LOL 
Aig 

Tl 


PSHE LS 
REAL 
L2yRBAL 
PSH TRU 
RBAL » REAL 
PSHTRU 
FPSHELS 


LOCAL 
FPRCBIGsLER 


GrROST 
L2skROSTL 
RUSTH 


SPH» SPL 
RIRL 
GeROST 

Ors RSRC 


ROSTH»y ROSTL 
RSRCHy RSROL 


CINTEP 


» CASE TABLE 


REWS 
Ligh. 
TOW 1 

TW 


SPH» SFL 
RIFE 
9G 

Oe» kRIST 


3/49 GL 
GH» GL 
O»+RSRC 


GH» GL 


RSERC » ROOST 
ROTEL. 
Or REA 


L29RIRL 
CONTI 
RIRLe RIRL 
XIPEATT 


ROSTy REA 
RIRL 
L2eRIRL 


CONTS 3 


XIPEXITS 


# ACN 


LOM 


MLO? 


JME 


CONT2 
RIRL ys RERL 
XJFERLT 
GG 


RSRC » ROOST 
ROOST » RUST 


RUST» G 


GH» GL. 
Oy RDOST 


RIG T » G 


CINTRE 


® LOAD MULTIPLE 


i 
LGL 
Mu 

ily 


KK 
Ci 
Bie 

Tk 

JZET 


GW 
SW 
TOW? 
Mid 
ST 
an 
FT 
RIW2 
CWF 
IW 


WIWe 
Ol 


JZF 


MW 


SF Hs SFL 
RIRH 

SP yey ROOST 
Oy RRC 


GH» GL 
GG 

Oe REAH 
ey REAL 


WOME X TT 

REAL» REST 
REAL s ROOST 
ROSTsROST 
RUST s REA 


ITé 


Ly RIRH ey RSC 


Lé 


RSRCHy RSRCL 


REST sy SF 
OvsRIR 


ROSTHs ROS TL 


RIRHe ROIRL 


LOMLOF 


LOUMEATT 3 


3 OXORRK 


ENF 


RAPLIOP 3 


DOPROC 


ICW2 
JP 


G»G 
CINTRRE 


§ RETURN FROM NORMAL FROCEDURE 


LGL 
Ml 
Al 
CIS 
AN 


LGL 
IW 


WIWe 


ROR 
GeRSRC 
MSSP es RERCL 
RSRCH 


RSROHy RSRCL 
RPSL 
OG 


RIRH 
GhHe GL 
GeG 
Gy RBAH 
2» REAL 
TOP ROC 


REA sR SRO 
REAsRSRO 


RF SIL 
2» REAH 


ROACH » REROL 
REAHe RSAC 
REAH?G 

Oe hOST 


— GHY GL 


ROUSTHe ROSTL 
REAL » RBAL 
RNP LOF 

ROIRL 


Te. 


Ge RSRCs RSVC 


Té 


RSRC yRSRC 


RORCHs RSROL 


 LLASTMP >» RISTL 


HLASTMP 2 ROSTH 
OG 


ROSTHy ROSTL 


a 


; 


LASTMEF 


LAS TMF 


GH» GL 


RSRCH » RSRCL. 
RPSWL 
Or REA 


ROSTH se ROOST. 
REAM sy REAL 


RSECH yy RSREL 
Gy Sk 


Or REA 


ROSTHs ROOST 
REAH»s REAL 

RSECHs RSRCL. 
RIRH 

OrG 


CINTEE 


“Sh 


ATA 


y COMMON FROCEDURES SECTION 
* THE FOLLOWING ARE COMMON FROCENURES THAT CAN BE LISED BY 
PO OANY FP-MACHINE OFCODE. 


¢ GETRIG - PERFORMS THE SAME FUNCTION AS THE GETBIG AACKO EACEPT 
: THE VALUE RETURNED IS ALWAYS IN REGISTER O, 


¥ ASSUMES RIRH CONTAINS A 4. 


* ENTRY 


JME 
NOP 


y ENTRY 


LGL 
Fe Tid 
LOL 
ib 
Ik 


JNEP 


Lk 

RIWI 
LL 
ME 


POINT FOR GETBIG 


PROGIG» LAR 
RSYC 


FOINT FOR GET 


nIRH 
GHs GL 
RE SWL 
O»GH 
eyGkh 


ISMALL 


RIK 

GH» GL 
RSL 
Gly GH 


OP COUE - FROM MACKO 


BIG PROCEDURE ~ CALLED FROM MICROCODE. 


HORALL ¢ 


LANCMOY 3 


LLOOF § 


LAKES T 4 


LLG 3 


N 
as 


RE 


* 
ba 
* 
$ 
* 
? 
a 
» 
a 
? 
” 
? 
co 
¥ 
a 
¥ 
’ 
% 
« 
¥ 


R 


ti 


$i 
Lis 
RI 
RT 

‘a 

Tt 
TW 
Lis 
Wt 
Oh 


AZ 


iC 


Lb 177+%GH 


29 GL 


os 
net 


OFCONE P&S 70-767 72 
PERFORMS THE OFERATION 

1¢3 0 MOV CRED +s (ROOF 

SOB RAy1$ 

RA IS THE LOW ORDER DIGIT OF THE OFCROE AND RE ANT RC 
ARE THE LOW ORDER 3 BITS OF THE LOW AND HIGH ORDER BYTES 
RESPECTIVILY OF THE WORD FOLLOWING THE OFCODE., NOTE» 
RA CAN ONLY BE REGISTERS Ovi» OR 2 AND THE REGESTER SHOULD 
CONTAIN A NUMBER > O TO OFERATE AS FROBABLY INTENDED 
(I.E. IT WILL BEHAVE LIKE A SOB) 


FCHe FCL 
Or» RRA 


Lé 
L. RBAL y RSVC 
lé 


Wt GH» GL 

Gt. RIRH 

WI GG 
Or ROST 


E. REAH 
Wi GhHy OL 
RUSTHsROSTL 


F TLOOF 


Wad MOsPOsRSYC ¢ XR NOTE RSVC HERE 


OF CODE 76777 
PERFORMS THE FUNCTION 
i$: MOV @Rirkd 
SOR ROs1# 
THE INITIAL ADDRESS MUST BE IN REGISTER 1 AND THE COUNT 
IN REGISTER O. THE COUNT HUST BE IN THE RANGE 1..127 To 
WORK PROPERLY. | 


Le RSRCL 


Lé 


Gil. RSECL y RSUC 


Té 


GH» GL 


Lk. RP SWL 
RIF Gly Gh 
Gh RSRCL 
IW Oy 


FS 2 LLOOF 


NOE ROYC 
NOF 3 XK TEMPORARY 


DECMOY ) ¢ OPCODE 74760-76762 
* FERFORMS THE OFERATION: 
? $1 MOV ~C(RBJ»-CRO? 
7 SOB Ray 1% 
? RA IS THE LOW OGROER DIGIT OF THE OFCODE ANT RB AND RC ARE 
9 THE LOW ORDER 3 BITS OF THE LOW AND HIGH ORDER BYTES 
* RESPECTIVELY OF THE WORD FOLLOWING THE OFCONE. NOTE? RA 
? CAN ONLY BE REGISTERS O»1 OR 2 AND THE REGISTER SHOULD 
¢ CONTAIN A NUMBER > 0 (I.E. IT WILL BEHAVE LIKE A SOB} 


RR PCRs POL 
TW Or RBA 
Lake 2» RSRCH 


ULOOP: ST ie: 
LGL REAL » RSVGE 
RI 1é 


GW RSRCH » G 

Fe GH» GL 
LBL. RIRH 
TWA GG 

Th Oy RUST 


a) RBAH 

SW RSRCH eG 

ul GH» GL 

Old RUSTHs ROSTL 


JAZF DLOOF 


TOW? PCsPO»RSVC 
NCE ;KXKXTEMPORARY ~ FIND NON JUMP 


5 see ate enve cone goon anes rete cone etes snes ares pene enue gets trae Bien ate aeee cute ons eve nee Snes suee ster ones wach ine GREE Mute Suse eee ctee sent Mase mee sone 
i MACKO F~MACHINE OFS 

¢ THIS SECTION CONTAINS THOSE F-HACHINE OFS THAT HAVE THETR OWN 

» GOFCODE T.E. THEIR MICRO ADDRESS IS NOT OBTAINED FROM THE XPRTBL 


(CHIN 3 CHECK AGAINST SUBRANGE BOLINDS 
fOr COME 76776 
IMACKO CODE SHOULID LOOK LIKES 
WORD 76776 
WORLD 74704 
TRAP INVNDX 


Re i 


GET MAXIMUM RANGE 
THIS INSURES THAT BOTH THE INVNIX 
ANT NORMAL CINTRE EXIT ROUTINES WORK RIGHT 


RIWe SFr: SPL 
LOW POs PC 


Gh “Sh SS 


IW Oy RSRO 


RIW2 SPH» SPL GET MINIMUM RANGE 


TW OrRDST 


Se 


“a> 
or 
fT 
cong 
{23 
c} 
‘T+ 
c 
> 
wx) 


iN SPH: SPL 
LW Ory RIK 


Cur RIRy RSAC § CHECK MAXIMUM RANGE 
JME LSOSTHN» LAR 


Cir RUST es RIF » CHECK MINIMUM RANGE 
SMP LSSTHNs LER 
WHE CINTRE 

RTRN RES 

LSOSTHN: CCF REAL ¢ IF LESS THAN ~> RETURN 
Ni Ler REAL TQ MACRO CODE FOR TRAP 
AZET RYTRN 
OE RBAL » REAL 
AZET RTRN 


MOE REVO 


Me 


kk NOTE RSYC 


tt 
bot rd 
”. 
i> 
oe 
Pasve 
o, 
ba v 
ry 
Tt 
“ry 
rete 
hea? 
w) 
Fe: 
os 
3g 


an y ORCODE 7é7eo 
9 CALL INTERMEDIATE FROC - SEARCH FOR PARENT 


> ls RIRH PCHELETE THIS ONCE REAL OF CODE IS IN USE? 
OL RIRH 7 


GET LEX LEVEL OF FROCETIURE BEING CALLED 


"ae 


RBH GL. 
LBL RIRL 
iB Oo RBAH 


JZET QUIT IF ZERO OR -1 RETURN TO MACRO CODE FOR 
JME CONT — 9 JUNP TO THE LAST FART OF CRP 


ee 


MUTT? LOWS POs FOr RSYC 
ONT s Mid GreROST 


LOOP} 


GOTIT: 


Date ate uly of 
OO AK a oh 


LPERR 3 


CLEY 


CR 
JNGET 


RR 
TW 


JMP 


NOP 


4,R0ST7L > SEARCH DOWN DYNAMIC LINK FOR FARENT 
ROSTH . 


ROSTHesROSTL ¢ GET JTAB FROM NSCU 
Oe KSRC 


Lé . 
2eKTIRHy RSV ? CHECK FOR INTERRUPTS 
Lé 


GET LEX LEVEL OF THE FPROCEDBURE 


Ce 


RSRCH» RSROL 
RIRH:ROST 
Or REAL 


REAH » REAL * COMPARE LEX LEVELS 
GOTIT > IF ITS LOWER WE’VE FOUND THE FARENT 


ROUSTHesROSTL ¢ IF NOT LINK DOWN TO NEXT PROCEDURE 
Ov RUST > ON THE DYNAMIC STACK 


LOOF y KEEP LOOKING FOR FARENT 
RIRHs RUST 

RUSTHs ROSTL 

Or RSRC > FUT LEX LINK ON THE STACK 


GhyGlyRSYVC 
RSACHs RSREL 


RSVC } STACK OVERFLW ~ RETURN TO MACRO 
§ CALL LOCAL PROCEDURE 
LSEG>RISTL 
HSEG»RUSTH 
RPSWL 
RDSTH» ROSTL 7 
SFG > MOV SF yO 
2» RBAH 
LOL REAH ; USES R2 INSTEAD OF OLUSEG 
OrG ; MOY SEQ, OLDSEG 
RIRH 
GH» GL 
Le RSRCL 
LGL. RSRCL. $ GETBYTE Ri 


Oy GH 
xy ih. 


OGG 
Geb 


te “Se 
ae 
wp 
~ 
Tj 
he 


LSEG»ROSTL 
HSEG»ROSTH 


ROSTHy ROSTL 
O»skhOST 


RUST» OG 7 ADD SEGsr RI 


GHG 
377 RUSTH 
HATASZ »RUSTL 

Or RSRC 


RSRC»G SUB @RirkL 


Se 


Gy RUST 

ROSTHs ROSTL 
3JOry REAL 
SF» RUST 

Or» RSKRC 


SUB TATASZCRID » SF 


ba td 


1é 
RSRO» ROST 

Lé 

RE SWL» REAL, 

RIRL 

Or RSRE 

RUST» RSRC > CMF SF» NF 


BLOS CLRERR 


“ty 


CLFERR 
CLPEERR 


~L4yROSTL ; REVERSE PUSH ORDER 
ROSTH | 
RUST» RIK 


ROSTHs RUST 


GHe GL MOV MP» - CSP 


“er 


LJITABsRSRCL 


ROSTHyROSTL | 
GH» GL > MOY MPe~ CSP 3 


HJITABsRSRCH 


RSRCH sy RSRCL 
RRA 
Le RSRCL 

O»y REA 


WiWe RESTHs ROSTL 3 MOV JITABy- (SF) 
Cd REAH» RBAL 


LL. 4»RSRCOH 
Wit ROSTHs ROSTL 
OW GHe Gh 


MOV OLNSEGs- (SF) 
(R2 USED INSTEAD OF OLTSEG) 


“Se MED 


LGL. RORCH 

ICwWa Gy RBA 

W ROSTHe RUS TL > MOV IPCs- (SF) 
Old REAHy REAL 


LG. RSRCL. 
ol Lé 
MW G»eRUST 
RI Lé 


AL FARMS2 » ROSTL 
COB ROSTH 
Fe RVSTHsROSTL 
LoL RESWL y MOY PARMSZ(R132IFC 
TW O»RDST ? (IFC NOT USETI3 


JZET CLF IN y BEG 2S 


Sly ROSTH » ROSTH ? ASR IFC 
Mb RIR ye RSRC > MOV SFeMP CNP NOT USET) 


Al. MSULTAt2 2RSRCL 
Cik RSRCH * ALL tHSUL TAS » MF 


PLRLOPs RE? GH» GL 
CWwiaF ROOST» ROS T 
LW O»sREA 
SI Lé 
LCF Oe RPSL > SET 2 FLAG TO FALSE 
RI 1é 
WIWe RSRKCH es RSRCL 
OW REAH » RBAL 


JZF CLELOFPF 


CLEFING Ml RIRy SF 
oh. Sy RIRL 
Eb 4>RIRH 


LGL. RIRL 
ibd SP» ; MOV SP» ME 


2END 


LLASTMP » ROSTL 
HLASTMF » ROSTH 


ROSTH» ROSTL 
GH» GL 


G»yRSRO 
MSSF ey RSROL 
RSRCH 
RP SWL 
RSRCH» RSRCL 
GH» GL 


lL» RSRCL 
RSRCL 


RUSTHs ROSTL 
GH» GL 


G»yROST 
ENTRICyROUSTL 
ROSTH 


ROSTHs ROSTL 
RIRH 
RUST »G 

Oe RUST 


RUST sGsRSVC 
FCs FC 


> 


“wr 


Sb 


MOV 


MOV 


MOV 


MOV 


AUT 


“BY te 


RO» MSSF CMPD 


Ri» JTAB 

Ri» IFC 
#ENTRICs IFC 
SUB BIFCyIFC 


SRIF OVER STACK OVERFLW ERROR &R 
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